Private Sub Command1_Click()
Dim wscript
Set wscript = CreateObject("WSCript.shell")
wscript.run ("C:\Documents and Settings\guan.WWW-2502F4296D8\桌面\新QQ.txt")
End Sub
另外winsock在VB中還有更方便應用的winsock控件,妳可以在工程-部件菜單中,將micrsoft winsock control 6.0 來引入到工具箱中,具體用法可網上查詢資料,壹句半句說不太清楚.最好的辦法就是找壹些例程看看.