Offtopic (I/2011)

Muu yhteisön välinen keskustelu.
Locked
User avatar
MaGetzUb
Guru
Posts: 1715
Joined: Sun Sep 09, 2007 12:35 pm
Location: Alavus

Re: Offtopic (I/2011)

Post by MaGetzUb » Mon May 16, 2011 1:33 am

Latexi95 wrote:Juu onnea Suomen jääkiekkojoukkueelle.
Nimenomaan! =) Hyvä Suomi! :D
Solar Eclipse
Meneillä olevat Projektit:
We're in a simulation, and God is trying to debug us.

User avatar
Kille
Active Member
Posts: 249
Joined: Wed Aug 26, 2009 3:50 pm
Location: Juankoski

Re: Offtopic (I/2011)

Post by Kille » Mon May 16, 2011 7:56 am

HYVÄ SUOMI!!! :D :D :D
ZEPPELIN
Jatkoa tulossa... tällä kertaa lataus ei kestä viikkoa

DJ-Filbe
Devoted Member
Posts: 854
Joined: Sat Feb 20, 2010 3:18 pm

Re: Offtopic (I/2011)

Post by DJ-Filbe » Mon May 16, 2011 4:11 pm

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]

User avatar
KilledWhale
Tech Developer
Tech Developer
Posts: 543
Joined: Sun Aug 26, 2007 2:43 pm
Location: Liminka

Re: Offtopic (I/2011)

Post by KilledWhale » Mon May 16, 2011 4:48 pm

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.
CoolBasic henkilökuntaa
Kehittäjä

cbFUN Kello
cbSDL
Whale.dy.fi

<@cce> miltäs tuntuu olla suomen paras

DJ-Filbe
Devoted Member
Posts: 854
Joined: Sat Feb 20, 2010 3:18 pm

Re: Offtopic (I/2011)

Post by DJ-Filbe » Mon May 16, 2011 10:54 pm

Miten?

User avatar
valscion
Moderator
Moderator
Posts: 1588
Joined: Thu Dec 06, 2007 8:46 pm
Location: Espoo
Contact:

Re: Offtopic (I/2011)

Post by valscion » Mon May 16, 2011 11:04 pm

cbEnchanted, uudelleenkirjoitettu runtime. Uusin versio: 0.4.1 — Nyt myös sorsat GitHubissa!
NetMatch - se kunnon nettimättö-deathmatch! Avoimella lähdekoodilla varustettu
vesalaakso.com

DJ-Filbe
Devoted Member
Posts: 854
Joined: Sat Feb 20, 2010 3:18 pm

Re: Offtopic (I/2011)

Post by DJ-Filbe » Tue May 17, 2011 4:44 pm

Ja nyt sitten toimii vain tietyt nettisivut (ei enää esim Google). HIENOA! PERKELETTO!
Reset-napit ei auta mitään.

User avatar
Viltzu
Guru
Posts: 1132
Joined: Sun Aug 26, 2007 5:45 pm
Location: Alavieska
Contact:

Re: Offtopic (I/2011)

Post by Viltzu » Tue May 17, 2011 5:15 pm

DJ-Filbe wrote: Reset-napit ei auta mitään.
Et vain osaa käyttää sitä. Lue reitittimesi manuaalia.

User avatar
valscion
Moderator
Moderator
Posts: 1588
Joined: Thu Dec 06, 2007 8:46 pm
Location: Espoo
Contact:

Re: Offtopic (I/2011)

Post by valscion » Tue May 17, 2011 5:20 pm

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.
cbEnchanted, uudelleenkirjoitettu runtime. Uusin versio: 0.4.1 — Nyt myös sorsat GitHubissa!
NetMatch - se kunnon nettimättö-deathmatch! Avoimella lähdekoodilla varustettu
vesalaakso.com

DJ-Filbe
Devoted Member
Posts: 854
Joined: Sat Feb 20, 2010 3:18 pm

Re: Offtopic (I/2011)

Post by DJ-Filbe » Tue May 17, 2011 6:02 pm

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


Kumiankka as Quest

Re: Offtopic (I/2011)

Post by Kumiankka as Quest » Wed May 18, 2011 5:50 pm

Voisiko mun accountin aktivointisähköpostin lähettää uudelleen? Kun onnistuin sen jotenkin hukkaamaan... :oops:

User avatar
Herra Siili
Advanced Member
Posts: 308
Joined: Tue Nov 25, 2008 9:06 pm
Location: Viitasaari, Keski-Suomi
Contact:

Re: Offtopic (I/2011)

Post by Herra Siili » Wed May 18, 2011 7:31 pm

Kirjautumissivulla on "Resend activation e-mail" linkki. Painahan siitä.
a.k.a. Hedge

Kumiankka
Member
Posts: 65
Joined: Wed May 18, 2011 5:17 pm
Location: Artjärvi

Re: Offtopic (I/2011)

Post by Kumiankka » Wed May 18, 2011 7:50 pm

Kiits... Olihan se namiska siellä vaikka sitä en äsken pikaisesti vilkaistessa huomannutkaan... :oops:

xamuli
Newcomer
Posts: 16
Joined: Thu Oct 07, 2010 4:40 pm

Re: Offtopic (I/2011)

Post by xamuli » Fri May 20, 2011 5:50 pm

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.

Kumiankka
Member
Posts: 65
Joined: Wed May 18, 2011 5:17 pm
Location: Artjärvi

Re: Offtopic (I/2011)

Post by Kumiankka » Fri May 20, 2011 8:26 pm

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...

Last edited by Kumiankka on Sat May 21, 2011 6:50 pm, edited 1 time in total.

User avatar
Ilkka
Active Member
Posts: 201
Joined: Mon Oct 08, 2007 8:01 am

Re: Offtopic (I/2011)

Post by Ilkka » Fri May 20, 2011 10:04 pm

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.
Image

Awaclus
Forum Veteran
Posts: 2939
Joined: Tue Aug 28, 2007 2:50 pm

Re: Offtopic (I/2011)

Post by Awaclus » Sat May 21, 2011 12:09 am

Jee, maailmanloppu oli 10 minuuttia sitten.

User avatar
buke44
Active Member
Posts: 169
Joined: Sat May 23, 2009 8:10 pm
Location: Tampere

Re: Offtopic (I/2011)

Post by buke44 » Sat May 21, 2011 10:37 am

Chaosworm wrote:Jee, maailmanloppu oli 10 minuuttia sitten.
Itseasiassa maailmanloppu on Suomen aikaa vasta kuudelta aamulla huomenna, joten turha vielä hätäillä.

DJ-Filbe
Devoted Member
Posts: 854
Joined: Sat Feb 20, 2010 3:18 pm

Re: Offtopic (I/2011)

Post by DJ-Filbe » Sat May 21, 2011 12:56 pm

Maailmanloppu, apua :roll:
Typerät hihhulit. Etteivät viittis jo lopettaa...
EDIT:

Tarkoitin niitä lahkon X jäseniä.


User avatar
esa94
Guru
Posts: 1855
Joined: Tue Sep 04, 2007 5:35 pm

Re: Offtopic (I/2011)

Post by esa94 » Sat May 21, 2011 3:18 pm

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

Locked