vbÖÐinte»ñÈ¡ÍøÒ³ÄÚµÄËùÓг¬Á´½Ó
vbÖÐinte»ñÈ¡ÍøÒ³ÄÚµÄËùÓг¬Á´½Ó Ôõô»ñÈ¡
°üÀ¨ÕýÔòת»¯
²»ÒªÓÃwebbrower
ÎÒÏëËüʵÏÖÒÔϹ¦ÄÜ
ÊäÈëÍøÕ¾ ×Ô¶¯¼ìË÷ËùÓÐÁ´½Ó£¬²¢Êä³öËùÓг¬Á´½Ó
ÅжϴíÎóÍøÒ³ Éú³ÉµØÍ¼
ÒÔÏÂÏÂÔØµÄÔ´Âë ²»ÊǺܶ® Ï£Íû¸ßÊÖ½âÊÍÏÂ
ÐÂÊÖ ²»ÔÚºõ·Ö ÏÂÃæ´úÂëÓдíÎó
VB code:
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdGoWander_Click()
StopSearching = False
rtbLinkNames.Text = ""
On Error Resume Next
Close #1
On Error GoTo 0
' Open CurDir & "\HTTPFILE.TXT" For Append As #1
Current_Pos = 1
Me.MousePointer = vbArrowHourglass
cmdGoWander.Enabled = False
cmdStopWandering.Enabled = True
If Get_File(txtSite.Text) Then
If Not Parse Then
Me.MousePointer = vbNormal
cmdGoWander.Enabled = True
cmdStopWandering.Enabled = False
Exit Sub
End If
Else
Me.MousePointer = vbNormal
MsgBox "Unable to find the desired site."
End If
cmdGoWander.Enabled = True
cmdStopWandering.Enabled = False
Me.MousePointer = vbNormal
StopSearching = True
End Sub
Private Sub cmdStopWandering_Click()
StopSearching = True
End Sub
Private Sub Form_Load()
txtSite.Text = "http://www.jamsa.com/jamsa1.htm"
NewLine = Chr(13) & Chr(10)
StopSearching = True
cmdStopWandering.Enab
Ïà¹ØÎÊ´ð£º
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£
±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
ÎÒÔÚÓÃVBдһ¸ö½«ÊÓÆµÎļþÉÏ´«µ½Ô¶³ÌÊý¾Ý¿âµÄС³ÌÐò£¬ÏÖÔÚÏëÒªÓýø¶ÈÌõÀ´ÏÔʾµ±Ç°ÉÏ´«µÄ½ø¶È£¬ÇëÎÊÒªÔõô×öÄØ£¿ÎÒÊǸöÐÂÊÖ£¬ËùÒÔÂé·³´ó¼Ò°ÑÒâ¼ûдÇå³þһЩ£¬ÓдúÂë×îºÃÀ²£¬Ð»Ð»£¡
ÒªÍêÈ«ÕýÈ·±È½ÏÀ§ÄÑ¡£
¹À¼ÆÏ° ......
¸÷λ¸ßÊÖ£¬Ð¡µÜÏëдһ¸ö³ÌÐò£¬¶ÁÈ¡·þÎñÆ÷ÉϵÄÒ»¸ö¹²ÏíÎļþ£¬µ±Õâ¸öÎļþ±»Ð޸ĺ󣬽«´ËÎļþ¿½±´µ½±¾µØ¼ÆËã»ú¸²¸Ç±¾µØÔÀ´µÄÎļþ¡£Çë¸÷λ´óÏÀд¶Î´úÂ룬ºÍ½âÊÍ£¬Ð»Ð»£¡
ÅжÏÎļþ´óС»òÐÞ¸ÄÈÕÆÚ£¬²»Ò»Ñù¾Í¿½±´µ½±¾µØ
......