Page 28 of 56

Re: Offtopic (I/2011)

Posted: Mon May 16, 2011 1:33 am
by MaGetzUb
Latexi95 wrote:Juu onnea Suomen jääkiekkojoukkueelle.
Nimenomaan! =) Hyvä Suomi! :D

Re: Offtopic (I/2011)

Posted: Mon May 16, 2011 7:56 am
by Kille
HYVÄ SUOMI!!! :D :D :D

Re: Offtopic (I/2011)

Posted: Mon May 16, 2011 4:11 pm
by DJ-Filbe
Millä korvaan localhostin että muut voivat ottaa minuun yhteyttä? IP ei toimi.
(***CBTCP-kikkailua***)
EDIT:

Sivua voidaan pyytää IP-osoitteestani, mutta pyyntöä ei näy ohjelmassani, paitsi localhostia käytettäessä. Mikähän vikana?

Code: Select all

Include "cbTCP.cb"

portti=80
//'yhteys = TCP_Connect("localhost", 1100)
If servu = 0 Then


	servu = TCP_Host(portti)
	
	If servu=0 Then MakeError "Hostia ei pystytty luomaan!"
	
	Goto host
	
	
	
Else
	
	
	
EndIf

clos=1

host:
	SAFEEXIT 0
	Repeat
		yhteys = TCP_Accept(servu)
		If yhteys Then
			AddText "Uusi yhteys!"
			DrawScreen
			
			If dat Then DeleteMEMBlock dat
			
			dat = MakeMEMBlock(TCP_RecvSize(yhteys))
			
			recsize=TCP_Recv(yhteys, dat, TCP_RecvSize(yhteys))
			
			
			
			a=OpenToWrite("server.txt")
			For i=0 To recsize
				bt$=PeekByte(dat,i)
				WriteByte a, bt
			Next i
			
			CloseFile a

			a=OpenToRead("server.txt")
				f$=Replace(Mid(ReadLine(a),6)," HTTP/1.1","")
			CloseFile a
			
			AddText "Sivupyyntö: "+Chr(34)+f+Chr(34)
			DrawScreen
			
			If FileExists(f) = 0 Then 
				AddText "Sivua ei löydy! (#404)"
				DrawScreen
				Goto sulje
			EndIf
			
			
			vast$="HTTP/1.1 100 Continue"+Chr(10)+Chr(10)
			vast$="HTTP/1.1 200 OK"+Chr(10)
			vast=vast+"Date: "+Time()+Chr(10)
			vast=vast+"Expires: "+Time()+Chr(10)
			vast=vast+"Cache-Control: private, must-revalidate"+Chr(10)
			vast=vast+"Server: Windows7, Coolbasic, file-transfer-only"+Chr(10)
			vast=vast+"Content-Language: fi"+Chr(10)
			vast=vast+"Content-Length: "+FileSize(f)+Chr(10)
			vast=vast+"Content-Type: Text/plain; charset=ascii"+Chr(10)
			//vast=vast+"Transfer-Encoding: deflate"+Chr(10)
			vast=vast+"Connection: keep-alive"+Chr(10)
			vast=vast+Chr(10)
			
			AddText "Luetaan "+f+"..."
			DrawScreen
			a=OpenToRead(f)
			Repeat
				vast=vast+ReadLine(a)+Chr(10)
			Until EOF(a)
			CloseFile a
			
			requestvastaus=MakeMEMBlock(Len(vast)+1)
			pokestring(requestvastaus, 0, vast)
			AddText "Lähetetään "+f+"..."
			DrawScreen
			
			TCP_Send(yhteys, requestvastaus, reqsize)

			AddText "Lähetetty!"
			DrawScreen
			
			
			sulje:
			clos=TCP_Close(yhteys)
			AddText "---------------------"
		Else
			//AddText "Ei uusia yhteyksiä"
			DrawScreen
			Wait 10
		EndIf
	
	If clos=0 Then clos=TCP_Close(yhteys)
		
	Until EscapeKey()
	TCP_Close(servu)
Return



Function SendString(conn As Integer, jono As String) //Lähettää merkkijonon ja laittaa loppuun tavut 10 ja 13, jotka päättävät rivin
	in = MakeMEMBlock(Len(jono) + 3)
	PokeString(in, 0, jono + Chr(10) + Chr(13))
    siirto = TCP_Send(conn, in, Len(jono) + 2)
	If siirto = 0 Then MakeError "Yhtään dataa ei saatu siirrettyä!"
    If siirto < Len(jono) + 2 Then MakeError "Vain osa jonosta siirtyi!"
EndFunction
[/edit]

Re: Offtopic (I/2011)

Posted: Mon May 16, 2011 4:48 pm
by KilledWhale
DJ-Filbe wrote:Millä korvaan localhostin että muut voivat ottaa minuun yhteyttä? IP ei toimi.
(***CBTCP-kikkailua***)
EDIT:

Sivua voidaan pyytää IP-osoitteestani, mutta pyyntöä ei näy ohjelmassani, paitsi localhostia käytettäessä. Mikähän vikana?

Code: Select all

Include "cbTCP.cb"

portti=80
//'yhteys = TCP_Connect("localhost", 1100)
If servu = 0 Then


	servu = TCP_Host(portti)
	
	If servu=0 Then MakeError "Hostia ei pystytty luomaan!"
	
	Goto host
	
	
	
Else
	
	
	
EndIf

clos=1

host:
	SAFEEXIT 0
	Repeat
		yhteys = TCP_Accept(servu)
		If yhteys Then
			AddText "Uusi yhteys!"
			DrawScreen
			
			If dat Then DeleteMEMBlock dat
			
			dat = MakeMEMBlock(TCP_RecvSize(yhteys))
			
			recsize=TCP_Recv(yhteys, dat, TCP_RecvSize(yhteys))
			
			
			
			a=OpenToWrite("server.txt")
			For i=0 To recsize
				bt$=PeekByte(dat,i)
				WriteByte a, bt
			Next i
			
			CloseFile a

			a=OpenToRead("server.txt")
				f$=Replace(Mid(ReadLine(a),6)," HTTP/1.1","")
			CloseFile a
			
			AddText "Sivupyyntö: "+Chr(34)+f+Chr(34)
			DrawScreen
			
			If FileExists(f) = 0 Then 
				AddText "Sivua ei löydy! (#404)"
				DrawScreen
				Goto sulje
			EndIf
			
			
			vast$="HTTP/1.1 100 Continue"+Chr(10)+Chr(10)
			vast$="HTTP/1.1 200 OK"+Chr(10)
			vast=vast+"Date: "+Time()+Chr(10)
			vast=vast+"Expires: "+Time()+Chr(10)
			vast=vast+"Cache-Control: private, must-revalidate"+Chr(10)
			vast=vast+"Server: Windows7, Coolbasic, file-transfer-only"+Chr(10)
			vast=vast+"Content-Language: fi"+Chr(10)
			vast=vast+"Content-Length: "+FileSize(f)+Chr(10)
			vast=vast+"Content-Type: Text/plain; charset=ascii"+Chr(10)
			//vast=vast+"Transfer-Encoding: deflate"+Chr(10)
			vast=vast+"Connection: keep-alive"+Chr(10)
			vast=vast+Chr(10)
			
			AddText "Luetaan "+f+"..."
			DrawScreen
			a=OpenToRead(f)
			Repeat
				vast=vast+ReadLine(a)+Chr(10)
			Until EOF(a)
			CloseFile a
			
			requestvastaus=MakeMEMBlock(Len(vast)+1)
			pokestring(requestvastaus, 0, vast)
			AddText "Lähetetään "+f+"..."
			DrawScreen
			
			TCP_Send(yhteys, requestvastaus, reqsize)

			AddText "Lähetetty!"
			DrawScreen
			
			
			sulje:
			clos=TCP_Close(yhteys)
			AddText "---------------------"
		Else
			//AddText "Ei uusia yhteyksiä"
			DrawScreen
			Wait 10
		EndIf
	
	If clos=0 Then clos=TCP_Close(yhteys)
		
	Until EscapeKey()
	TCP_Close(servu)
Return



Function SendString(conn As Integer, jono As String) //Lähettää merkkijonon ja laittaa loppuun tavut 10 ja 13, jotka päättävät rivin
	in = MakeMEMBlock(Len(jono) + 3)
	PokeString(in, 0, jono + Chr(10) + Chr(13))
    siirto = TCP_Send(conn, in, Len(jono) + 2)
	If siirto = 0 Then MakeError "Yhtään dataa ei saatu siirrettyä!"
    If siirto < Len(jono) + 2 Then MakeError "Vain osa jonosta siirtyi!"
EndFunction
[/edit]
Porttien ohjaukset kuntoon niin toiminee.

Re: Offtopic (I/2011)

Posted: Mon May 16, 2011 10:54 pm
by DJ-Filbe
Miten?

Re: Offtopic (I/2011)

Posted: Mon May 16, 2011 11:04 pm
by valscion

Re: Offtopic (I/2011)

Posted: Tue May 17, 2011 4:44 pm
by DJ-Filbe
Ja nyt sitten toimii vain tietyt nettisivut (ei enää esim Google). HIENOA! PERKELETTO!
Reset-napit ei auta mitään.

Re: Offtopic (I/2011)

Posted: Tue May 17, 2011 5:15 pm
by Viltzu
DJ-Filbe wrote: Reset-napit ei auta mitään.
Et vain osaa käyttää sitä. Lue reitittimesi manuaalia.

Re: Offtopic (I/2011)

Posted: Tue May 17, 2011 5:20 pm
by valscion
DJ-Filbe wrote:Ja nyt sitten toimii vain tietyt nettisivut (ei enää esim Google). HIENOA! PERKELETTO!
Jaa-a, kuulostaa siltä että pistit sitten portin ohjauksen vähän tyhmään porttiin. Jos ohjaat portin 80, eli perus-HTTP -portin, omalle koneellesi niin tuonlaisia ongelmia saattaa tulla.
DJ-Filbe wrote:Reset-napit ei auta mitään.
Kuten Viltzu sanoi, niin luultavasti et vain osaa käyttää reititintä oikein. Useat reitittimet vaativat, että laitteessa on virta päällä ja reset-nappulaa pidetään pohjassa vähintään 10 sekuntia.

Re: Offtopic (I/2011)

Posted: Tue May 17, 2011 6:02 pm
by DJ-Filbe
VesQ wrote:
DJ-Filbe wrote:Ja nyt sitten toimii vain tietyt nettisivut (ei enää esim Google). HIENOA! PERKELETTO!
Jaa-a, kuulostaa siltä että pistit sitten portin ohjauksen vähän tyhmään porttiin. Jos ohjaat portin 80, eli perus-HTTP -portin, omalle koneellesi niin tuonlaisia ongelmia saattaa tulla.
DJ-Filbe wrote:Reset-napit ei auta mitään.
Kuten Viltzu sanoi, niin luultavasti et vain osaa käyttää reititintä oikein. Useat reitittimet vaativat, että laitteessa on virta päällä ja reset-nappulaa pidetään pohjassa vähintään 10 sekuntia.
Korjasin, kun liitin ethernet-kaapelin modeemiin ja runkkasin asetukset nollille.
V-mäistä ku ei jaksa keskittyy minkään asian tekemiseen niin että ei tulisi ongelmia...
EDIT:

typofix


Re: Offtopic (I/2011)

Posted: Wed May 18, 2011 5:50 pm
by Kumiankka as Quest
Voisiko mun accountin aktivointisähköpostin lähettää uudelleen? Kun onnistuin sen jotenkin hukkaamaan... :oops:

Re: Offtopic (I/2011)

Posted: Wed May 18, 2011 7:31 pm
by Herra Siili
Kirjautumissivulla on "Resend activation e-mail" linkki. Painahan siitä.

Re: Offtopic (I/2011)

Posted: Wed May 18, 2011 7:50 pm
by Kumiankka
Kiits... Olihan se namiska siellä vaikka sitä en äsken pikaisesti vilkaistessa huomannutkaan... :oops:

Re: Offtopic (I/2011)

Posted: Fri May 20, 2011 5:50 pm
by xamuli
Pelaako kukaan Traviania?
Aion alottaa pitkästä aikaa uudestaa niin ajattelin jos joku muu pelais 4. serveriä ja haluis mun kanssa vaikka liittoutua niin voisin tulla samaan ilmansuuntaan (en siis vielä ole alottanut). En sitten ole kovin hyvä Travianissa enkä pelaa tosissaan, vaan pelaan huviksee ja sillon kun on aikaa.

Re: Offtopic (I/2011)

Posted: Fri May 20, 2011 8:26 pm
by Kumiankka
Onko kellään tallessa pixel --> rgb muutos funkkaria? jos on niin viittiskö postailla tänne kun en löydä sitä...
EDIT:

Se olikin RGB --> pixel, mutta sen löysinkin jo...


Re: Offtopic (I/2011)

Posted: Fri May 20, 2011 10:04 pm
by Ilkka
xamuli wrote:Pelaako kukaan Traviania?
Aion alottaa pitkästä aikaa uudestaa niin ajattelin jos joku muu pelais 4. serveriä ja haluis mun kanssa vaikka liittoutua niin voisin tulla samaan ilmansuuntaan (en siis vielä ole alottanut). En sitten ole kovin hyvä Travianissa enkä pelaa tosissaan, vaan pelaan huviksee ja sillon kun on aikaa.
Ite oon alottanut koilliseen, mutta en tiiä jatkanko, ku mun mielestä se versio T4 on kuraa 3.6 versioon verrattuna. Jatkan ainaki Classic 2 servun loppuun, mutta pittää kattoa jatkaako Travian Games kura linjalla ja lopettaa 3.6 servut. Jostai syystä vaa en tykkää niistä kaikista sankarihommeleista, enkä uuesta ulkoasusta. Tulee ikävästi grafiikasta rune mielee. :lol: Lisäksi uus kartta-systeemi bugaa ainakin mulla( Ei näytä välillä aluksi missä oma kylä vaa saattaa heittää aiva minne sattuu. Kesken kartan katonnanki saattaa heittää jonnekki nevadaan. ) ja lisäksi sivut ovat vähänkään hitaammalla netillä, tai vaikka kännykällä nytten älyttömän raskasta avata.

Re: Offtopic (I/2011)

Posted: Sat May 21, 2011 12:09 am
by Awaclus
Jee, maailmanloppu oli 10 minuuttia sitten.

Re: Offtopic (I/2011)

Posted: Sat May 21, 2011 10:37 am
by buke44
Chaosworm wrote:Jee, maailmanloppu oli 10 minuuttia sitten.
Itseasiassa maailmanloppu on Suomen aikaa vasta kuudelta aamulla huomenna, joten turha vielä hätäillä.

Re: Offtopic (I/2011)

Posted: Sat May 21, 2011 12:56 pm
by DJ-Filbe
Maailmanloppu, apua :roll:
Typerät hihhulit. Etteivät viittis jo lopettaa...
EDIT:

Tarkoitin niitä lahkon X jäseniä.


Re: Offtopic (I/2011)

Posted: Sat May 21, 2011 3:18 pm
by esa94
buke44 wrote:
Chaosworm wrote:Jee, maailmanloppu oli 10 minuuttia sitten.
Itseasiassa maailmanloppu on Suomen aikaa vasta kuudelta aamulla huomenna, joten turha vielä hätäillä.
Kaheksaltapas

Se oli 6:00 GMT