VBдע²á±íÆô¶¯Ïî
Private Sub Form_Load()
Set w = CreateObject("wscript.shell")
w.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
End Sub
Ïà¹ØÎĵµ£º
°ÑÏÂÃæµÄ´úÂë Õ³Ìùµ½Îı¾
ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("Powered By www.cnbeta.com"&vbCr&vbCr&" ±¾³ÌÐò½«×Ô¶¯Ìæ»»Ä㵱ǰ Windows µÄÐòÁкÅ,ͨ¹ý΢ÈíÑéÖ¤ÍêÈ«Õý°æ¡£"&vbCr&vbCr&"ÐòÁкÅ(OEM°æÎÞЧ,ĬÈϰ汾Ϊ XP VLK)£ ......
ÎÒÓÃVBÖ´ÐÐDOSÃüÁÉú³ÉÎı¾ÎļþËæ¼´´ò¿ª
µ«ÊÇÓÉÓÚÎı¾ÎļþÉú³ÉÐèÒªÒ»¶Îʱ¼ä£¬
»¹Î´µÈÎļþÉú³ÉÍê±ÏVB¾Í´ò¿ªÁËÕâ¸öÎļþ
ÇëÎÊÈçºÎÈóÌÐòµÈ´ýDOSÃüÁîÖ´ÐÐÍê±ÏÔÙ´ò¿ªÕâ¸öÎı¾Îļþ°¡
×îºÃ»¹ÄܼÓÉÏÒ»¸öµÈ´ýµÄ½ø¶ÈÌõÏÔʾÎı¾ÎļþµÄÉú³É¹ý³Ì
´úÂëÈçÏ£º
Shell "cmd /c dir /s /b e:\ dir.txt"
Open "dir.txt" ......
Option Explicit
Private Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pDisplayName As String
lpTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Private Declare Function SHGetPathfromIDList Lib "shell32.dll" Alias _
"SHGetPa ......
'******************************************************************************************
'* ÐèҪעÒâµÄÎÊÌâ *
'******************************************************************************************
'1.INIÎļþµÄ· ......
VB ×Ö½ÚÊý×éºÍ×Ö·û´®µÄת»»ÎÊÌâ (String<>Byte)
Posted by JiaJia 16 March,2009 (2)Comment
Ò»¡¢ ǰÑÔ
¡¡¡¡ Êý¾ÝÀàÐÍת»»ÔÚ±à³ÌÖо³£Óõ½£¬VB6ÌṩÁËÒ»ÕûÌ×ÀàÐÍת»»µÄº¯Êý¡£µ«ÊÇ£¬ÔÚ½øÐÐÀàÐÍת»»Ê±£¬ÓÐʱºò½ö½öÒÀ¿¿VBÌṩµÄº¯ÊýÊDz»ÄÜ´ïµ½×Ô¼ºµÄÄ¿µÄµÄ¡£Òò´Ë£¬ÐèÒª¿¼ÂÇÓÃÆäËûµÄ·½·¨À´Íê³ÉÊý¾ÝÀàÐÍת»»¡£±¾ÎĽ ......