vb³ÌÐòÔÚXPϵͳÏÂÎÞ·¨Ö´ÐУ¿
ÎÒÓÃVBдÁËÒ»¸ö½Ù³Öä¯ÀÀÆ÷µÄÓ¦Óᢿª·¢»·¾³£¨ windows2003 + VB6.0 £©µ«ÔÚXPÏÂÎÞ·¨Õý³£Ö´ÐУ¿
ÍøÉϲé×ÊÁ϶¼ËµÐèÒªÌáȨ£¬¿ÉÎÒͨ¹ýAdjustTokenPrivileges½øÐÐDEBUGÌáȨ֮ºó£¬ÔÚXPÏÂÈÔÈ»ÎÞ·¨Ö´ÐУ¬Çë¸ßÊÖ°ïæ½â¾öһϣ¡
Îҵģѣѣº544588699¡¢»¶Ó¼ÓÈëÎÒ£ÑÌÖÂÛ¡«¡«¡«
Ò»¹²Ö»ÓÐ6·ÖÁË£¬±íʾǷÒâ¡«¡«¡«
ÓпÉÄÜÊÇÔÚ 2003 ÖеÄijЩ API º¯Êý£¬Óë XP ÖеIJ»Ïàͬ°É£¡
¿´¿´ÄãµÄ³ÌÐòÀïÊDz»ÊÇÓõ½ÁËʲôDLL,OCXÎļþ£¬ÔÚXPÏÂÖØÐÂ×¢²áһϿ´¿´£¡
End_rbody_60475008//-->
¸Ã»Ø¸´ÓÚ2009-10-19 10:46:36±»¹ÜÀíԱɾ³ý
¶ÔÎÒÓÐÓÃ[0]
¶ª¸ö°åש[0]
ÒýÓÃ
¾Ù±¨
¹ÜÀí
TOP
victory2006
(Î÷ÄÏ)
µÈ¡¡¼¶£º
#4Â¥ µÃ·Ö£º0»Ø¸´ÓÚ£º2009-10-17 09:07:15
ÓÐÒ»¸öDLL¡¢ÎÒͨ¹ýÒÔÏ·½·¨´ÓRESÖÐÊͷŵ½system32ÏÂÁË
Private Sub shifang()
On Error Resume Next
Dim strSysPath As String
Dim strDesPath As String
Dim binBuffer() As Byte
strDesPath = "c:\windows\system32\" & "project.dll"
If Dir(strDesPath) <> "" Then
Exit Sub
End If
binBuffer = LoadResData(101, "CUSTOM")
Open strDesPath For Binary As #1
Put #1, , binBuffer
Close #1
End Sub
»¹Óз¢ÏֺܶàʱºòÐÞ¸Ä×¢²á±í²»³É¹¦¡¢²»ÔõôÎȶ¨¡«
±ÈÈ磺
Dim wsh As New WshShell
wsh.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Browser Helper O
Ïà¹ØÎÊ´ð£º
Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4
'³õÊ¼×ø±ê
x = 1
y = 4
'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£
XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£
Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......
ÓÃVBÔõôֻÕë¶Ôwindows×Ô´øµÄÎļþµÄÓÒ¼üÌí¼Ó²Ëµ¥ È磨.txt .doc)
Õâ¸öÊÇÖ»Õë¶ÔÒÔÕâÁ½¸öΪÀ©Õ¹ÃûµÄÎļþ²Ù×÷
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\txtfile\shell\[Ëæ±ãÆðÃû]\command]
@= ......
ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖØ¸´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓÐºÃ¶àµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡
²åÈë֮ǰselectһϰ¢¡£
»òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç
IF not Exist(
& ......