VBдּ| վҳ |  | ƽ̳ | ͼ | ڿͻ | վ |  | վ | ѵӰ |  
| 60̳ |  60ȡѧ԰WWW.60DU.COM| Ƶҳ | ڻ | ڿͷ | ȫ |  | QQר | ڿ 
| ʹ | ڿͱ | 缼 | ϵͳ  ڵλã 60 Eadren  >> ڿͻ >> ڿͱ >>  Ŀ 
      ڻ
      ڿͷ
      ȫ
      
      QQר
      ڿ
      ʹ
      ڿͱ
      缼
      ϵͳ
      ֽ̳

 Ƽ  QQ°뱾֤ QQɱ°¼ӹ˵ κQQΪ ӳѧߵ̸֣ QQβ͡ VBдּ 
Windows API ѧϰʼ дһűȡWind ϷƼ̽ ASPSQLע win2003/XP3389 
ƽACCESSݿ ̣Ŀ¼/ ƽע ײ㣺Windowsڿͱ̹... VBдּ... 
... 
ʱ⵽̽⣬һ̽˵߼ȥԸܳϺڿͣԱľ档ǶͨɨǶ˿ڵIPɨ߶IP˿ɨ衣ǰͨһЩIPȡIPȻö˿ɨȡϢļûԤľȻͨϵľ˿бľơӦĿͻӵļӶ롢ԼϢͨSuperScanȿԴΧɨIPɨض˿ڵĻ磬ɨ7626˿ڵĻԷǷ˱ӡȻ߾ÿͻӵӶļ 

ЩɨǼ򵥵TCPConnectɨ衣޷ܿǽ׷١ͿȷǽȡԷIPźܶDIYԻ̰߱ӵԼƵĹߡľ͸㽲VB̽ߵIPַȻ󡭡ҿûнըţըȥըŶϾûߵҰģ򻹿80˿ڣ쿴Էеĳɨ衣ҪģҪһVB
ˣϻ˵Ļԭ
ͨConnectĶ˿ڣȻͨǷɹϢTCPԭضԼIPǾһԭöԷIP
Winsockؼԡ¼ϴдġ.winsock©ɨһѾͲٽܡһһǵRemoteHostIPLocalPort԰ɡǶԷIPԼĶ˿ڡӦ˰ɡͨԾͿĻöԷIPַɨıض˿ڡ
Ϊһ˿ֻһ˻ɨ裬ԱҪʹõؼ顣ҿԲMSDNǣ
 ҪĶ˿
 װһWinsock1ؼҪĶ˿блݡһһܡListen
 ĳһؼյӵ¼ͰѵõRemoteIPLocalPort־
 һWinsock2ݣGetdata
 Winsock2ݵ¼
ĻˣԱѾһʶǾʼǵĹ
ĿؼԼ˵£
ؼ ؼ  
Label1 Label Caption=Ӷ˿ڡ 
Command1 command Caption=ӡ 
Command2 command Caption= 
Command3 command Caption=˳ 
Listports Listbox  
TxtLog Richtextbox  


ĴԼ˵£

VB6.0Windows2000²ͨ
Dim tmpstr As String
Dim NOW_OUT As Integer ''ܹȥӵмWinsock
Private Sub Command1_Click()
ListPorts.AddItem txtADDPORT.Text
End Sub

Private Sub Command2_Click()
On Error Resume Next
If Command2.Caption = "" Then
For i = 0 To ListPorts.ListCount - 1
Load Winsock1(i + 1) ''ؼ˿ڵwinsock1ؼ
Winsock1(i + 1).LocalPort = ListPorts.List(i) ''趨˿
Winsock1(i + 1).Listen ''
Next i
Command2.Caption = "ֹͣ"
Else
For i = 1 To Winsock1.Count - 1
Unload Winsock1(i)
Next i
For i2 = 1 To Winsock2.Count - 1
Unload Winsock2(i2)
Next i2
Command2.Caption = ""
End If
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
txtLOG.Text = "־:" & vbCrLf
NOW_OUT = 1
End Sub

Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As 
Long)
Load Winsock2(NOW_OUT) ''ؽӵWinsock2ؼ
Winsock2(NOW_OUT).Accept requestID ''
Winsock1(Index).Close
Winsock1(Index).Listen ''Winsock1
NOW_OUT = NOW_OUT + 1 ''ӵĿؼۼ
myAddLog "" & Winsock1(Index).RemoteHostIP & "ӵض˿:" & 
Winsock1(Index).LocalPort
''ʾ
End Sub

Private Sub Winsock2_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Winsock2(Index).GetData tmpstr ''ͨGetdata
myAddLog "" & Winsock2(Index).RemoteHostIP & "ݣ" & tmpstr ''ʾ
End Sub

Sub myAddLog(tmptext As String) ''־
tmptext = tmptext & vbCrLf
txtLOG.SelStart = Len(txtLOG.Text)
txtLOG.SelText = tmptext
End Sub
ܽ᣺ʵһЩԭܼ򵥣ֻҪʵܹѧֻõĳȥƵĳǺܼ򵥵ġľ˿ɨͻ˹ߡCGI©ɨVBWinsockؼ˵ǵײCԵSocket̵ĹܡʵͨĲǺõġ򵥵ӾCookieƭVBдֳʮּ򵥡

... ¼룺Ƭ    α༭Ƭ һƪ£ ASPSQLע˺ 
һƪ£ ֮ɱǽ̵Ĵ
 
û
壺С 󡿡ۡղءߺѡӡġرմڡ    ûκ 
              * Oicq 
             ҳ 
             ֣ 1  2  3  4  5 
            ݣ 
               



   QQ°뱾֤ƽ QQɱ°¼ӹ˵ wmiprvse.exe - Ϣ windowsı̡ ѴIC绰 VB 
㿪ʼ( ɨ豾ؼ򿪵Ķ ȡWindowsϵͳĽ κQQΪ ڿ̽ȡԭ ƽ ASP﷨ȫ 
[ͼ]QQ뱾ƽ ӳѧߵ̸֣ QQβ͡ ڹ߽ NTLDRRING0ķ VBдּ 
С󡪡IIS ͵ؿ:һ Windows API ѧϰʼ ټƽվȫ VBѧϰ:ȡü 
дһűȡWindow ϷƼ֢̽ һSQLServer֤ ѧҳľ ȽJSPASP javascriptʹ 
͸ѧϰC++ѵ5... 

|Ϊҳ | ղ | ϵվ |  | Ȩ | ICP05008239 

Ա:Ƭ| Eadren | δ𽫱վģĳǷ; | 60 Eadren  
All Rights Reserved (C) Copyright 2007 Email:admin@60du.com 
ģȺ:6019353 11395765 
