winsock - run hjemmeside osv.

jamen problemet er at jeg ikke ved hvad jeg skal skrive i sub form load og de andre... i clienten og i serveren! kan du hjælpe mig med det?

Private Sub Form_Load()
Winsock1.RemotePort = 3539
End Sub

Private Sub cmdconn_Click()
Winsock1.RemoteHost = txtip.Text
Winsock1.Connect
End Sub

Private Sub cmdsend_Click()
Winsock1.SendData txtmsg.Text
End Sub

kode til server:

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData Data
Text1.Text = Data & vbCrLf & Text1.Text
call Handle(Data)
End Sub
Private Sub Form_Load()
Winsock1.LocalPort = 3539
Winsock1.Listen
Form1.Caption = "Running at " & Winsock1.LocalIP
Text1.Text = ""
End Sub


function Handle(strTxT as string)
dim strDel as string

strDel=split(strTxt," ")

select case strDel(0)

case "hjemmeside"

case "open"
shell (strDel(1)) 'åbner programmet med del1 som sti
case "en anden komando" 'osv...
end select

end function

et ekspel er at sende f.eks komandoer vidre til en kommando "fortolker".

som så udføre kommandoen.
med hensyn med program og paramter kan du finde
løsning her http://www.udvikleren.dk/thread.php?techid=4&f=4&t=442&searchword=shell

hvor der også er direkte ekspel på at åbne en hjemmeside
med internet explore

mvh.
Thomas Christensen
-------------------------------------------------------
Visual Basic noget for dig?
tjek Visual Basic-Gruppen
http://www.udvikleren.dk/groups/?gid=41

kode til client:

Private Sub Form_Load()
Winsock1.RemotePort = 3539
End Sub

Private Sub cmdconn_Click()
Winsock1.RemoteHost = txtip.Text
Winsock1.Connect
End Sub

Private Sub cmdsend_Click()
Winsock1.SendData txtmsg.Text
End Sub

kode til server:

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData Data
Text1.Text = Data & vbCrLf & Text1.Text
End Sub
Private Sub Form_Load()
Winsock1.LocalPort = 3539
Winsock1.Listen
Form1.Caption = "Running at " & Winsock1.LocalIP
Text1.Text = ""
End Sub

hvordan kan jeg gøre så serveren kan gå ind på en hjemmeside , åbne programmer / filer osv.? jeg har prøvet at lave det her i lang tid og har nu besluttet at spørge om hjælp

1. Gå ind på hjemmeside det kan du f.esk gøre med
ved at åbne en browser med første argument som hjemmeside
addressen.
åbne browseren med shell
2. Du kan åbne programmer med shel (sti)
3. du kan åbne filer med open i eget program.
ellers tar de fleste programmer mod filen i første argument
med shell.

mvh.
Thomas Christensen
-------------------------------------------------------
Visual Basic noget for dig?
tjek Visual Basic-Gruppen
http://www.udvikleren.dk/groups/?gid=41

jamen problemet er at jeg ikke ved hvad jeg skal skrive i sub form load og de andre... i clienten og i serveren! kan du hjælpe mig med det?