1.VBå¶ä½å®è£
ç¨åº
VBå¶ä½å®è£ ç¨åº
Visual Basic å®è£ ç¨åºå¶ä½
å®è£ ç¨åºå¶ä½æ¯å项ç®å¿ ä¸å¯å°çä¸éå·¥åºï¼ç½ä¸çå®è£ 软件å¾å¤ï¼å¯ä»¥ç¨äºè±å «é¨æ¥å¼å½¢å®¹äº~~~~
å¨æ¤ç¬è ä»ç»ä¸ä¸ªæç®åçå®è£ æ¹æ³ï¼å°±æ¯ç¨VBèªå¸¦çæå ç¨åºè¿è¡æå ï¼è½ç¶æ¯è¾æ®éï¼ä¸è¿å é¨å´æä¸å°çªé¨ï¼ç¸ä¿¡è¿ä¸ç¹ç¥éç人å¯è½ä¸å¤å§ï¼ï¼ï¼è¯·å¤§å®¶ä¸å®çå°æåï¼å¥½æå¨å头ï¼å¥½äºï¼ä¸åºè¯äºï¼å¼å§è¿å ¥æ£é¢ã
â è¿è¡æå å导
â¡ç¹å»âæµè§âæé®ï¼éæ©è¦æå çå·¥ç¨ãç¶ååå»âæå âæé®ï¼å¨æ¤åªä»ç»æå ï¼å ¶ä»çåè½ä¸åä»ç»ï¼ãè¿å ¥ä¸ä¸ä¸ªé¡µé¢ã
â¢éæ©è¦æå çç±»åï¼æ®éçEXEå·¥ç¨éæ©âæ åå®è£ å âå°±å¯ä»¥äºï¼æ§ä»¶ä¹ç±»çç使ç¨çå°ç¹ï¼å¦ææ¯å¨ç½é¡µä¸ä½¿ç¨ï¼è¯·éæ©âInternet软件å âï¼ç¶åç¹å»âä¸ä¸æ¥âæé®ã
â£éæ©å æ件åæ¾çä½ç½®ï¼è¿ä¸ç¹ä¸ç¨å¤è¯´äºå§ï¼
â¤å导èªå¨æ¾åºäºå·¥ç¨ä¸åºç¨çæ§ä»¶ãDLLçæ件ï¼ä½ éè¦èªå·±å°å·¥ç¨ä¸æ£æ¥ä¸ä¸ï¼ççæå å«çæ件æ¯å¦å ¨ï¼ç¬¬ä¸æ¹æ§ä»¶æ带çæ件ä¸å®è¦å¸¦ä¸ï¼å¦å麻ç¦å¤å¤ï½ï½ï½ï¼ç¶åç¹å»ä¸ä¸æ¥ã
â¥éæ©æå çæ件类åï¼æ ¹æ®éè¦ï¼å¦æä½ åå¸æ¯ç¨å çï¼åéæ©å个çå缩æ件ï¼å¦æåå¸æ¯ç¨è½¯çä¹ç±»çï¼åéæ©å¤ä¸ªå缩æ件ãï¼å½ç¶ï¼è¿ä¸æ¯ç»å¯¹çï¼ç¨å çä½ ä¹å¯ä»¥éæ©å¤ä¸ªå缩æ件ï¼ä¸è¿å¯è½æ²¡æ人è¿ä¹å¹²ï½ï½ï½ï¼ãç¶ååå»âä¸ä¸æ¥âã
â¦ç¡®å®å®è£ ç¨åºçæ é¢ï¼å°±æ¯å¨å®è£ èæ¯ä¸æ¾ç¤ºçæåãç¶ååå»âä¸ä¸æ¥âã
â§å¨è¿éä½ å¯ä»¥è®¾ç½®å¨âå¼å§èåâä¸æ¾ç¤ºåªäºé¡¹ç®ï¼æ¯å¦ä½ å¯ä»¥å å¸è½½ç¨åºé¡¹ï¼å¯ä»¥éæ©âæ°å»ºé¡¹âæé®ï¼ç¶åå¨âç®æ âæ ä¸è¾å ¥$(WinPath)\st6unst.exe -n "$(AppPath)\ST6UNST.LOG"ï¼å æ¬åå¼å·ãå¨âå¼å§â项ç®ä¸éæ©â$(WinPath)âï¼ä¸å æ¬åå¼å·ãç¶åç¹å»ç¡®å®ã
â¨å¨æ¤ä½ å¯ä»¥æ´æ¹æ件夹çå®è£ ä½ç½®ï¼ç¶åç¹å»âä¸ä¸æ¥âã
â©å¨æ¤ä½ å¯ä»¥å°æä»¶è®¾ç½®ä¸ºå ±äº«ï¼å³æ件å¯ä»¥è¢«å¤ä¸ªç¨åºä½¿ç¨ï¼ãå°æ¤ä¸ºæ¢å®è£ å¶ä½å®æã
å®è£ å®ä¹åä¼çæä¸ä¸ªæ件åä¸ä¸ªæ件夹ï¼
SERTUP.LST å®è£ ä¿¡æ¯æ件
.CABæ件å æ¯æ°æ®æ件ï¼å®è£ çæä»¶å ¨é¨å¨å éã
Setup.exeæ¯å®è£ ç主æ件ã
Supportæ¯å缩å ä¸æå å«çæææ件ã
è¿ä¸ªæ件夹éæä¸ä¸ªæ¯è¾éè¦çæ件就æ¯âæ§ç §å¥æ.BATâè¿ä¸ªæ¹å¤çæ件ï¼ä¸åçå·¥ç¨ï¼æ件åä¼ä¸ä¸æ ·ï¼ï¼å½ä½ çå·¥ç¨æ¹å¨ä¹åï¼ä½ å¯ä»¥å°å·¥ç¨éæ°ç¼è¯ä¸ä¸ï¼ç¶åå°æ§è¡æ件æ·è´å°æ¤SUPPORTç®å½ä¸ï¼æ§è¡è¿ä¸ªæ¹å¤çæ件ï¼å°±å¯ä»¥éæ°æå ï¼èä¸éè¦æ¯æ¬¡æ¹å¨é½è¿è¡æå å导äºã
è¿æä¸ä¸ªæ¯è¾éè¦çæ件就æ¯SETUP1.EXEè¿ä¸ªæ件ï¼ä»æ¯å®è£ ç主æ件ï¼å®è£ æ¶æ们çå°ççé¢å°±æ¯è¿ä¸ªæ件è¿è¡äº§ççãä»æ¯ç¨VBåçï¼æºç¨åºå¨VBçå®è£ ç®å½ä¸ï¼âC:\Program Files\Microsoft Visual Studio\VB\Wizards\PDWizard\Setup1\SETUP1.VBPâï¼ä½ å¯ä»¥ç¨VBç´æ¥æ¥ç¼è¾æ¤å·¥ç¨ï¼VBçå®è£ çé¢å¤ªä¸äºï¼æä»¥ä½ å¯ä»¥èªå·±æ¹å¨ï¼æ¹çæä¹æ ·å°±è¦çä½ èªå·±çè½åäºï½ï½ï½ï¼ï¼å¦æå¨å®è£ ä¹åæ³å¨æ¡é¢ä¸å ä¸ç¨åºçå¿«æ·æ¹å¼ï¼å¯ä»¥ç¼è¯æ¤å·¥ç¨ï¼æå¼âfrmSetup1âçªå£ï¼å¨å ¶ä»£ç ç第è¡çä½ç½®ä¸å å¦ä¸ä»£ç ï¼
Dim sProgramsPath As String
Dim sDesktopPath As String
sProgramsPath = GetSpecialFolder(sfidPROGRAMS)
sDesktopPath = GetSpecialFolder(sfidDESKTOP)
sProgramsPath = sProgramsPath & "\" & gstrAppName & "\" & gstrAppName & ".lnk"
sDesktopPath = sDesktopPath & "\" & gstrAppName & ".lnk"
FileCopy sProgramsPath,源码抓取小程序源码 sDesktopPath
ä¸é¢å¯¹å导çæçSERTUP.LSTï¼å®è£ ä¿¡æ¯æ件ï¼è¿è¡ä¸ä¸ä»ç»ã
è¿æ¯æ件ç第ä¸ä¸ªåºçå 容ï¼SetupTitle设置çæ¯è§£åçªå£çæ é¢ï¼SetupText设置çæ¯è§£åçªå£çå 容ãæ¹å¨ä¹åã
æ¥ä¸æ¥ä»ç»ä¸ä¸SERTUP.LSTæ件Setupåºçä½ç¨ã
æ¹å¨Color为ä¸åçå¼ï¼å¯ä»¥æ¹åå®è£ çªå£çèæ¯è²ï¼é»è®¤ä¸ºèè²ï¼çé½çè »äºï¼ãæ¹ä¸ºä¹å为绿è²ï¼å½ç¶è¿æå ¶ä»çé¢è²ï¼ä½ å¯ä»¥èªå·±æ ¢æ ¢è¯ï½ï½ï½ï¼ï¼ææå¦ä¸å¾æ示ï¼è¿æ¯ææ¹å¨ä¹åçVBèªå¸¦çå®è£ ç¨åºçå®è£ çé¢ï¼å¤§å®¶è§å¾æä¹æ ·ï¼æ¯ä¸æ¯ä¸æ¯å ¶ä»çä¸äºå®è£ 软件ççé¢éè²ï¼ï¼
好äºï¼å®è£ ç¨åºå°±ä»ç»å°è¿äºï¼å½ç¶äºï¼VBçå®è£ ç¨åºå®å ¨æ¯VBèªå·±åçï¼å°åºæä¹æ¹ä»¥åæ¹å¨çæ¼äº®ä¸å¦ï¼å°±è¦çä½ èªå·±çæ°´å¹³ä¸ç¾æ¯ååºäºï¼åæ£å®è£ ç¨åºçæºç é½ç»ä½ äºï¼ä½ æ³æä¹åé½è¡ï½ï½ï½ï½ï½