VB code:
Private Sub Command1_Click() 'Í˳ö
On Error Resume Next
rsXJ.Close
rsBJ.Close
rsZY.Close
Unload Me
End Sub
ÔÚÒÔÉÏ´úÂëÖгöÏÖÁË´íÎ󣬴íÎó˵·¨ÊÇ£º
¡°¹ý³ÌÉùÃ÷ÓëͬÃûʼþ»ò¹ý³ÌµÄÃèÊö²»Æ¥Å䡱
VB6.0
ÈçÐèÒªÔĶÁ¸Ã»Ø¸´£¬ÇëµÇ¼»ò×¢²áCSDN!
......
VB.NET code:
If CheckBox1.Checked = True Then
nlen1 = Asc2Hex(ÔÖµ, OldData1)
Call Asc2Hex(ÐÞ¸Ä, NewData1)
[color=#FF0000]ReadProcessMemory(pHandle, lOffset(0), rData1(0), nlen1, 0)[/color]
If ByteCmp(rData1, OldData1) Then
......
ÈçÌâ
VB code:
'²»ÖªµÀÄãÊDz»ÊÇÒªÕâ¸ö£º
'vba´úÂëÈçÏ£º
ÐкŠ= ActiveCell.Row
ÁкŠ= ActiveCell.Column
'VBÖÐÓÃʱ£¬¼ÓÉÏVBÖд´½¨excelµÄ¶ÔÏó
'ÒÔÏÂÒ²Êdz£ÓõÄ:
'vba´úÂëÈçÏ£º
nLR = ActiveSheet.Cells.SpecialCells(xlLastCell).Row '×îºóÒ»ÐУ¨ÓëÁ¬ÐøÓë·ñÎ޹أ©
nLC = ActiveSheet.Cells.Special ......
Ç°ÌáÊÇ£º
1¡¢¸ÃÍøÒ³²¢·ÇÒ»¸ö´¿HTMLÒ³Ã棬ÊÇÓÉ¿ò¼Ü¹¹³ÉµÄ£¬¶øÇÒijЩ°´Å¥ÊǶ¯Ì¬Éú³ÉµÄ¡£
2¡¢Ä³Ð©°´Å¥°´Ïº󲢲»»á´¥·¢webbrowserµÄBeforeNavigate2ʼþ£¬ËùÓÐÓÃÕâ¸öÅж¨Ò²²»ÐС£
3¡¢ÎÒµÄÓÃÒâÊÇÔÚ°´Ï¸ð´Å¥Ê±£¬ÏÈ×èÖ¹¸Ã°´Å¥µÄonclickʼþ£¬È»ºóÅжϸÃÍøÒ³µÄÊäÈëÄÚÈÝÊÇ·ñÕýÈ·£¬Èç¹ûÕýÈ·ºó£¬ÔÚÌá½»£¬·ñÔò£¬¾ÍÈ¡Ïû°´Ï¡ ......
¾Ý˵javaÓïÑÔÊÇÕâÑùµÄ£¬ÄÇVBÄØ£¿
byte[] b(byte)0x62,(byte)0x11,(byte)0x72,(byte)0x31};
try {
System.out.println(new String(b,"UTF-16"));
} catch (UnsupportedEncodingException e) {
e.printStackTrace();
}
¿ÉÒÔ½èÖú ADO.Stream¡£
ͨ¹ýÐÞ¸Ä CharSe ......
Îı¾Îļþ(txt,log)Êä³ö£¬ÔÚÖÐÎÄ£¬¶íÎÄϵͳÏÂÔõô¶¼ÄÜÂú×ãÓÒ¶ÔÆ뷽ʽ£¬ÏÔʾ¡£
°ÑÎÊÌâÔÙÃèÊöµÄÇå³þµã
Îı¾ÎļþÊä³ötxt,log¸ñʽ£¬ÔÚÖÐÎĺͶíÎÄϵͳÏÂÐèÒª¶¼ÓÒ¶ÔÆ룬Êý¾ÝÊÇʵʱ²É¼¯µÄ¡£ÏÖÔÚÔÚÖÐÎÄϵͳÏ£¬¶ÔÆ붼¿ÉÒÔ£¬Çл»µ½¶íÎÄ϶¼²»Õý³£¡£
txt,logÖ»ÊÇÎı¾£¬²»±£´æ¶ÔÆëÐÅÏ¢£¬ÄãÓÃÖ§³ÖÓÒ¶ÔÆëµÄ¶«Î÷´ò¿ª£¬×ÔÈ»¾Í ......