Propriul tau server de hosting in vb6

www.Hacking-Romania.com
Hacking, gaby hacker team, programe hack, radmin hack, hi5 hack, hack the west, hacking romania, hacking stuff, hacking tools, 1 hack, 1st hacks, 2 hack, 2 hacks, 3 hack, 3 hacks, 3000 hack, 3004 hack, 4 hack, 4 hacks, 55 hack, 6 hack, 6 hacks, 7 hack, 7 hacks, 9 hack, 9dragons hack, a hack, adventure quest hack, aim hack, alz hack, and hacks, best hack, blue hack, bots hack, bots hacks, buy hack, cabal online hack, chaos hacks, cheat engine hack, cheat hack, cheats and hacks, cheats hacks, city hack, club hack, combo hack, conquer hacks, conquer online hack, conquer online hacks, conquer speed hack, conquiztador hack, counter strike 1.6 hack, damage hack, de hack, download hack, download hack for, dragonfable hack, dragonfable hacks, drakkarious hack, exp hack, flyff hack, free hack, free hacks, game hack, game hacks, garena exp hack, gladiatus hack, gm hack, gold hack, gunz hack, hack, hack 5, hack a pc, hack a site, hack a website, hack blog, hack conquer, hack counter strike, hack crack, hack cs, hack cs 1.6, hack dvd, hack email, hack forum, hack hunter, hack id, hack info, hack it, hack mess, hack muonline, hack net, hack password, hack passwords, hack pc, hack pdf, hack programs, hack site, hack sites, hack soft, hack software, hack team, hack the game, hack this, hack website, hack windows xp, hack world, hack xp, hacked, hacking, hacking game, hacking programs, hacking software, hacking tutorials, hacks, how hack, how to hack, icon hack, last chaos hack, last chaos hacks, life hack, lineage 2 hack, lineage 2 hacks, linux hack, lvl hack, maplestory hacks, mobile hack, multi hack 3.0, mybrute hack, naruto arena hack, naruto arena hacks, one hit kill hack, online hacks, perfect world hacks, pool hack, programe hack, resolution hack, resource hack, roll hack, royal hack, silkroad hack, source hack, speed hack, speed hacks, super hack, the west hack, warrock hack, warrock hacks, web hack, xpango hack, lockerz forum

Lista Forumurilor Pe Tematici

www.Hacking-Romania.com | Reguli | Inregistrare | Login

POZE WWW.HACKING-ROMANIA.COM

Nu sunteti logat.

Nou pe simpatie:
Roxxy22 25 ani

Femeie
25 ani
Cluj
cauta Barbat
25 - 48 ani

www.Hacking-Romania.com / Hacking-ul nostru cel de toate zilele / Propriul tau server de hosting in vb6

Autor

Mesaj

Pagini: 1

danuhack
MEMBRU SPECIAL

Din: '"test
Inregistrat: acum 15 ani
Postari: 447

Astazi invatam sa facem un server web in vb6 cu Microsoft Winsock control 6

Faceti un nou folder in care puneti un folder cu numele "Root"

in vb6 creati un proiect standard exe il salvati in acel folder

la proiectu nostru adaugam un winosck (click dreapta in bara de instrumente component si cautati winosck control 6)

Si scriem
Private Sub Form_Load()
Winsock1.LocalPort = 80
On Error GoTo Hell:
Winsock1.Listen

Exit Sub
Hell:
MsgBox "Un alt serviciu utilizeaza portu 80. ", vbCritical
End Sub

Private Sub Winsock1_Close()
Winsock1.Close
Winsock1.LocalPort = "80"
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
On Error Resume Next
If Winsock1.State <> sckClosed Then Winsock1.Close

Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim DT As String
Dim StuffIGot As String

Winsock1.GetData DT

Call GetFile(DT)

End Sub

Public Sub GetFile(Request As String)
Dim unpFile As String
Dim unpFileS() As String

unpFile = Right(Request, Len(Request) - 5)
unpFileS = Split(unpFile, " HTTP")

Call OpenFile(unpFileS(0))

End Sub

Public Sub OpenFile(File As String)
Dim TempStr As String
Dim OpenedFile As String
Dim CFFI() As String
Dim TestSTR As String
Dim ErrString As String

CFFI = Split(File, ".")

On Error GoTo GoI
TestSTR = CFFI(1)
GoTo PassI
GoI:

If Dir(App.Path & "\Root\index.htm") <> "" Then
File = "index.htm"
Else
If Dir(App.Path & "\Root\index.html") <> "" Then
File = "index.html"
Else
ErrString = "Error 404" & vbNewLine & "INDEX nu a fost gasit"
Winsock1.SendData ErrString
GoTo PassAll
End If
End If

PassI:

On Error GoTo Err:
Open App.Path & "\Root\" & File For Input As #1

Do Until EOF(1)
Input #1, TempStr
OpenedFile = OpenedFile & TempStr
Loop
Close #1

Winsock1.SendData OpenedFile

PassAll:
Exit Sub
Err:

ErrString = "Error 404" & vbNewLine & "Fila nu a fost gasita"
Winsock1.SendData ErrString

End Sub

Private Sub Winsock1_SendComplete()
Winsock1.Close
Winsock1.LocalPort = 80
On Error GoTo Hell:
Winsock1.Listen

Exit Sub
Hell:
MsgBox "Un alt serviciu se execută pe portul 80. ", vbCritical
End Sub

Il compilam adica facem un exe din file make a exe si il salvati in acel folder

Si in root adaugati index.html dupa placul vostru si va puneti tot ce vreti si pentru ca alta persoana sa aceseze situ tau trebuie sa scrie in browser http://ip-u tau

sau daca vrei sa il testezi http://localhost

Codul sursa deja facut

Bafta

Modificat de danuhack (acum 13 ani)

_______________________________________
[img]http://i220.photobucket.com/albums/dd214/CatalynCN/bnr_bancnota_zero_0_lei_ron_1266581.jpg[/img]

pus acum 14 ani

terroare
Pe lista neagra

Inregistrat: acum 14 ani
Postari: 7

ar merge si un tutorial

pus acum 13 ani

danuhack
MEMBRU SPECIAL

Din: '"test
Inregistrat: acum 15 ani
Postari: 447

ce mai vrei mai mult de atat pui un winsock pe form din bara cu instrumente de alea texturi imagini etc daca nul ai dai un click pe bara de instrumente=>Component=>Si bifeaza Microsoft winosck 6

il pui pe form si dai copi paste la cod restu e scris ai sus

_______________________________________
[img]http://i220.photobucket.com/albums/dd214/CatalynCN/bnr_bancnota_zero_0_lei_ron_1266581.jpg[/img]

pus acum 13 ani

terroare
Pe lista neagra

Inregistrat: acum 14 ani
Postari: 7

asta e ceva de genu la apache

pus acum 13 ani

danuhack
MEMBRU SPECIAL

Din: '"test
Inregistrat: acum 15 ani
Postari: 447

da ceva de genul xamp

_______________________________________
[img]http://i220.photobucket.com/albums/dd214/CatalynCN/bnr_bancnota_zero_0_lei_ron_1266581.jpg[/img]

pus acum 13 ani

AdRyAnO
Moderator

Inregistrat: acum 14 ani
Postari: 19

codul il bagi in winsock ? danuhack add pls adryano_team

pus acum 13 ani

danuhack
MEMBRU SPECIAL

Din: '"test
Inregistrat: acum 15 ani
Postari: 447

Am pus un cod sursa

_______________________________________
[img]http://i220.photobucket.com/albums/dd214/CatalynCN/bnr_bancnota_zero_0_lei_ron_1266581.jpg[/img]

pus acum 13 ani

Pagini: 1

Mergi la