【正文】 TION:msg=ipbaddestinationCaseIP_ADDR_DELETED:msg=ipaddrdeletedCaseIP_SPEC_MTU_CHANGE:msg=ipspecmtuchange一條代碼得到本機IP地址在工程部件中加載MicrosoftWinsockControl控件=*******************************************將程序從任務(wù)列表中隱藏將你的程序從Windows的系統(tǒng)任務(wù)列表中隱藏(即CTRL+ALT+DEL出來的框)39。復(fù)制以下代碼到一模塊中DeclarationsPublicDeclareFunctionGetCurrentProcessIdLibkernel32()AsLongPublicDeclareFunctionGetCurrentProcessLibkernel32()AsLongPublicDeclareFunctionRegisterServiceProcessLibkernel32(ByValdwProcessIDAsLong,ByValdwTypeAsLong)AsLongPublicConstRSP_SIMPLE_SERVICE=1PublicConstRSP_UNREGISTER_SERVICE=039。下面代碼為隱藏PublicSubMakeMeService()DimpidAsLongDimreservAsLongpid=GetCurrentProcessId()regserv=RegisterServiceProcess(pid,RSP_SIMPLE_SERVICE)EndSub39?；謴?fù)隱藏PublicUnMakeMeService()DimpidAsLongDimreservAsLongpid=GetCurrentProcessId()regserv=RegisterServiceProcess(pid,RSP_UNREGISTER_SERVICE)EndSub*******************************************如何在窗體中平鋪圖片？　本文介紹怎樣用一個圖片（例如BMP）平鋪在窗口并完全覆蓋它?！　∥覀兂３Ｓ行枰褂靡环D去覆蓋一個窗口或者窗口的一部分。這正是設(shè)計那些小圖的目的。它們以原來的尺寸作為背景排列在要覆蓋的窗口上，這種技術(shù)就叫“平鋪”?！　B沒有提供平鋪圖片到窗口的標(biāo)準(zhǔn)功能。要做到這點，我們必須使用WINDOWSAPI和一些圖形技術(shù)。　　操作步驟：　　建立一個新工程項目，缺省建立窗體FORM1　　添加一個新模體　　粘貼下面代碼到新模體OptionExplicitDeclareFunctionBitBltLibgdi32(ByValhDestDCAsLong,ByValxAsLong,_　ByValyAsLong,ByValnWidthAsLong,ByValnHeightAsLong,ByValhSrcDCAsLong,_　ByValxSrcAsLong,ByValySrcAsLong,ByValdwRopAsLong)AsLongDeclareFunctionGetDCLibuser32(ByValhwndAsLong)AsLongPublicRetValueAsLongPublicSubTileWindow(WindowObjectAsObject,pAsPictureBox)　　DimjAsInteger,iAsInteger　　DimxAsInteger　　DimWhDCAsLong　　39。ThisobjectcanbeanyVBstandardobjectwithanhWndproperty　　WhDC=GetDC()　　Forj=0ToStep　　　　Fori=0ToStep　　　　　　x=BitBlt(WhDC,i,j,,,,0,0,vbSrcCopy)　　　　Next　　NextEndSub　　添加一個圖片框控件（PICUTRE1），設(shè)置其SCALEMODE屬性=3PIXEL，AUTOREDRAW屬性=TURE，AUTOSIZE屬性=TURE。在PICTURE屬性中選擇一幅圖?！　√砑右韵麓a到FORM1的PAINT事件：PrivateSubForm_Paint()　　TileWindowMe,Picture1EndSub　　保存工程項目　　運行程序。當(dāng)顯示出窗體后，可以看到圖片“平鋪”到整個窗體?！　∽⒁猓罕M管這種方法顯示能夠在任何支持hWnd屬性的控件上平鋪圖片，但仍必須留意哪些控件支持PAINT方法*******************************************制作拖盤PublicConstMAX_TOOLTIPAsInteger=64PublicConstNIF_ICON=amp。H2PublicConstNIF_MESSAGE=amp。H1PublicConstNIF_TIP=amp。H4PublicConstNIM_ADD=amp。H0PublicConstNIM_DELETE=amp。H2PublicConstWM_MOUSEMOVE=amp。H200PublicConstWM_LBUTTONDOWN=amp。H201PublicConstWM_LBUTTONUP=amp。H202PublicConstWM_LBUTTONDBLCLK=amp。H203PublicConstWM_RBUTTONDOWN=amp。H204PublicConstWM_RBUTTONUP=amp。H205PublicConstWM_RBUTTONDBLCLK=amp。H206PublicConstSW_RESTORE=9PublicConstSW_HIDE=0PublicnfIconDataAsNOTIFYICONDATAPublicTypeNOTIFYICONDATAcbSizeAsLonghWndAsLonguIDAsLonguFlagsAsLonguCallbackMessageAsLonghIconAsLongszTipAsString*MAX_TOOLTIPEndTypePublicDeclareFunctionShowWindowLibuser32(ByValhWndAsLong,ByValnCmdShowAsLong)AsLongPublicDeclareFunctionShell_NotifyIconLibAliasShell_NotifyIconA(ByValdwMessageAsLong,lpDataAsNOTIFYICONDATA)AsLong以下在form_load里初始化WithnfIconData.hWnd=.uID=.uFlags=NIF_ICONOrNIF_MESSAGEOrNIF_TIP.uCallbackMessage=WM_MOUSEMOVE.hIcon=39。定義鼠標(biāo)移動到托盤上時顯示的Tip.szTip=amp。Vamp。amp。.amp。amp。.amp。amp。Build:0825amp。vbNullChar.cbSize=Len(nfIconData)EndWithCallShell_NotifyIcon(NIM_ADD,nfIconData)39。以下在mousemoveDimlMsgAsSinglelMsg=x/SelectCaselMsgCaseWM_LBUTTONUP39。MsgBox請用鼠標(biāo)右鍵點擊圖標(biāo)!,vbInformation,天倚之音39。單擊左鍵，顯示窗體ShowWindow,SW_RESTORE39。下面兩句的目的是把窗口顯示在窗口最頂層39。39。39。39。CaseWM_RBUTTONUP39。39。PopupMenu39。如果是在系統(tǒng)Tray圖標(biāo)上點右鍵，則彈出菜單mnulstsong39。39。CaseWM_MOUSEMOVE39。39。CaseWM_LBUTTONDOWN39。39。CaseWM_LBUTTONDBLCLK39。39。CaseWM_RBUTTONDOWN39。39。CaseWM_RBUTTONDBLCLK39。39。CaseElseEndSelect39。以下在窗體關(guān)閉（程序結(jié)束時）保證托盤圖標(biāo)消失CallShell_NotifyIcon(NIM_DELETE,nfIconData)39。拖盤相關(guān)調(diào)用*******************************************一個API一行代碼實現(xiàn)XP風(fēng)格控件39。聲明PrivateDeclareSubInitCommonControlsLib()PrivateSubForm_Initialize()InitCommonControlsEndSub比如生成的可執(zhí)行文件名為：在該文件同一目錄下新建立一個文本文件文本文件里輸入以下內(nèi)容?xmlversion=encoding=UTF8standalone=yes?assemblyxmlns=urn:schemasmicrosoft:manifestVersion=assemblyIdentityversion=processorArchitecture=X86name=type=win32/descriptionYourapplicationdescriptionhere./descriptiondependencydependentAssemblyassemblyIdentitytype=win32name=version=processorArchitecture=X86publicKeyToken=6595b64144ccf1dflanguage=*//dependentAssembly/dependency/assembly最后將這個文本文件改名為：發(fā)現(xiàn)窗體上的空件都變成XP風(fēng)格的了*******************************************改變文件的屬性語法SetAttrpathname,attributespathname必要參數(shù)。用來指定一個文件名的字符串表達(dá)式，可能包含目錄或文件夾、以及驅(qū)動器。Attributes必要參數(shù)。常數(shù)或數(shù)值表達(dá)式，其總和用來表示文件的屬性。attributes參數(shù)設(shè)置可為：常數(shù)值描述vbNormal0常規(guī)（缺省值）VbReadOnly1只讀。vbHidden2隱藏。vbSystem4系統(tǒng)文件vbArchive32上次備份以后，文件已經(jīng)改變舉例：setattrc:\,VbReadOnly+vbHidden將123這個文本文件設(shè)置成只讀和隱藏屬性~ 16