用vb編寫QQ登陸！

在QQ登錄界面上輸入好帳號(hào)密碼并選中自動(dòng)登錄，VB代碼：

10年積累的做網(wǎng)站、網(wǎng)站設(shè)計(jì)經(jīng)驗(yàn)，可以快速應(yīng)對(duì)客戶對(duì)網(wǎng)站的新想法和需求。提供各種問(wèn)題對(duì)應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認(rèn)識(shí)你，你也不認(rèn)識(shí)我。但先制作網(wǎng)站后付款的網(wǎng)站建設(shè)流程，更有華陰免費(fèi)網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。

Private Sub Command1_Click()

Shell "D:\Program Files\QQ2007\QQ.exe " 'QQ路徑

End Sub

VB NET,像QQ登錄界面、酷狗那種窗體是怎么做出來(lái)的？

這個(gè)問(wèn)題很簡(jiǎn)單，但是，要自己去寫事件，不然，窗體就是一個(gè)死窗體了

用VB.NET編QQ登陸界面要用到哪些控件

你好：

Button+Label+ListBox等等啦

很多的啦~VB 其實(shí)也是可視化界面 所見(jiàn)即所得的一個(gè)軟件。你QQ上面有幾個(gè)控件再去VB工具箱里找 都有的！呵呵！

誰(shuí)會(huì)用vb做qq登錄界面？要三個(gè)窗口，一個(gè)是登錄窗口，一個(gè)是登陸成功窗口，一個(gè)是登陸后的界面（內(nèi)容不用

首先新建一個(gè)EXE工程，再在窗體上拖幾個(gè)Label控件，看看Label的強(qiáng)大功能吧，原理就是利用Label來(lái)模擬一個(gè)按鈕，但是首先要將Label控件的屬性要調(diào)一下， Name：LblBtn， BorderStyle:1， Appearance:0， Alignment:2， 這樣一個(gè)按鈕的雛形就已經(jīng)出來(lái)了，如果工程量很大，可以將多個(gè)Label控件的Name屬性設(shè)為一樣的，對(duì)于按鈕的識(shí)別就要靠識(shí)別Index屬性了，為了方便起見(jiàn)，在進(jìn)入到代碼編輯窗口，輸入以下代碼： PrivateConstLBL_BACK_COLOR＝HE0E0E0’正常時(shí)Label控件的背景色 PrivateConstLBL_WHEN_MOUSE_MOVE＝HC0C0C0’鼠標(biāo)移動(dòng)時(shí)Label的背景色 PrivateConstLBL_WHEN_MOUSE_DOWN＝H808080’鼠標(biāo)按下時(shí)Label的背景色 再在Form的Load事件中輸入以下內(nèi)容 PrivateSubForm_Load（） DimCountAsInteger ForCount＝0To3’請(qǐng)將此出的3換成你的LblBtn數(shù)量的個(gè)數(shù)－1 LblBtn（Count）.BackColor＝LBL_BACK_COLOR’初始化LblBtn的背景 NextCount EndSub 然后再在LblBtn的MouseMove和MouseDown事件中來(lái)搞定剩余部分： PrivateSubLblBtn_MouseDown（IndexAsInteger，ButtonAsInteger， ShiftAsInteger，XAsSingle，YAsSingle）’當(dāng)鼠標(biāo)按在LblBtn上時(shí) LblBtn（Index）.BackColor＝LBL_WHEN_MOUSE_DOWN’臨時(shí)改變LblBtn背景顏色 EndSub PrivateSubLblBtn_MouseMove（IndexAsInteger，ButtonAsInteger， ShiftAsInteger，XAsSingle，YAsSingle）’鼠標(biāo)在LblBtn上面移動(dòng)時(shí)觸發(fā)該事件 DimCountAsInteger DoEvents’暫時(shí)將系統(tǒng)控制權(quán)教給系統(tǒng) IfButtonThenExitSub’如果按鈕被按下就退出該過(guò)程 ForCount＝0To3 IfCountIndexThen’如果按下的不是其它按鈕 LblBtn（Index）.BackColor＝LBL_BACK_COLOR’將背景設(shè)為正常 Else LblBtn（Index）.BackColor＝LBL_WHEN_MOUSE_MOVE’將背景設(shè)為鼠標(biāo)移 動(dòng)的背景 EndIf NextCount EndSub PrivateSubForm_MouseMove（ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle） DimCountAsInteger DoEvents ForCount＝0To3 LblBtn（Count）.BackColor＝LBL_BACKCOLOR’恢復(fù)背景 NextCount End 本來(lái)利用Windows的消息系統(tǒng)來(lái)完成這一“艱巨”的任務(wù)最簡(jiǎn)單，可問(wèn)題就來(lái)了，Label控件沒(méi)有窗口句柄怎么辦？可是此問(wèn)題與題無(wú)關(guān)，寫了會(huì)有騙稿費(fèi)之：） OK，Label控件就講到這里，在來(lái)說(shuō)說(shuō)TextBox控件， 各位看關(guān)恐怕看慣了白顏色的背景，那么就換換顏色以養(yǎng)養(yǎng)俺們那和綿羊一樣的眼睛（為什么說(shuō)綿羊？俺也不知道），可是VB提供的RGB函數(shù)弄出來(lái)的顏色不是怎么好看，這里俺來(lái)教大家一個(gè)小Tip，RGB函數(shù)的Red，Green，Blue這三個(gè)參數(shù)若一樣，則產(chǎn)生的顏色是灰度，當(dāng)然越接近白顏色越好，但也不能讓各位看不出來(lái)，俺建議TextBox的背景為RGB（235，235，235），各位還是實(shí)戰(zhàn)一下，將一TextBox拖到窗體上，屬性設(shè)置如下 Appearance0 BorderStyle1 MutilLineTrue 千萬(wàn)不要設(shè)置ScrollBars屬性，否則會(huì)影響效果在Form的Load事件中初始化TextBox DimbkColorAsLong PrivateSubForm_Load（） bkColor＝RGB（235，235，235） Text1.BackColor＝bkColor EndSub 在Form和Text1的MouseMove事件中:PrivateSubForm_MouseMove（ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle） Text1.BorderStyle＝0 EndSub PrivateSubText1_MouseMove（ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle） DoEvents Text1.BorderStyle＝1 EndSub 在按下F5試試是不是很Cool? 可能各位看關(guān)玩過(guò)石器時(shí)代，一定會(huì)對(duì)里面的TextBox的效果感到很爽，VB還不是可以做到，有焦點(diǎn)的控件可以使用SetFocus方法來(lái)為其設(shè)置焦點(diǎn)，可是一個(gè)窗體上如果控件太多了，一個(gè)一個(gè)的用SetFocus是不是太傻了?這一節(jié)的主角就是－－－－－－－－API函數(shù)， 首先聲明: PrivateTypePOINTAPI xAsLong yAsLong EndType PrivateDeclareFunctionGetCursorPosLib"user32"Alias"GetCursorPos" （lpPointAsPOINTAPI）AsLongPrivateDeclareFunctionWindowFromPointLib"user32"Alias"WindowFrom Point"（ByValxPointAsLong，ByValyPointAsLongAsLongPrivateDeclareFunctionSetFocusLib"user32"Alias" SetFocus"（ByValhwndAsLong）AsLong 但是這里的SetFocus會(huì)和控件的SetFocus會(huì)搞混淆，改改吧， PrivateDeclareFunctionnSetFocusLib"user32"Alias"SetFocus"（ByValhwndAsLong）AsLong 只要Alias指向的接口是對(duì)的前面的函數(shù)名稱簡(jiǎn)直就是擺設(shè)，在建立一個(gè)過(guò)程: PublicFunctionsSetFocus（）AsLong DimCPosAsPOINTAPI，SuccessfullAsBoolean，hWndAsLong DoEvents Successfull＝GetCursorPos（CPos） IfNotSuccessfullThenExitSub’如果未成功則退出該過(guò)程 hWnd＝WindowFromPoint（CPos.x，CPos.y） sSetFocus=nSetFocus(hWnd) EndSub 在窗體上放一個(gè)Timer控件，Interval屬性設(shè)為100，就是0.1秒，在Timer1控件的Timer事件中填入sSetFocus，在運(yùn)行一下看看，效果怎么樣? 可是有的先生小姐要問(wèn)了，TextBox難道就不能用ScrollBar嗎?非也非也，選工程－部件－MicrosoftWindowsCommonControls－26.0（SP3）就是你的答案，至于卷動(dòng)TextBox就去研究SendMessage函數(shù)吧，否則又有騙稿費(fèi)之嫌，如果想作綠色軟件，不想用控件，可以用俺前面講到的Label控件，利用字體Webdings來(lái)模擬ScrollBar，需要注意的是，如果模擬ScrollBar，上下左右箭頭分別是5，6，3，4，別忘了把字體設(shè)為Webdings 再來(lái)講講窗體的美化，其實(shí)將BorderStyle屬性設(shè)為0就是很好的2D美化;）可是，這樣一來(lái)，問(wèn)題又來(lái)了，怎么辦?凡事都要請(qǐng)API來(lái)幫忙，這里需要兩個(gè)API，一下是該API的聲明: PublicDeclareFunctionReleaseCaptureLib"user32"Alias"ReleaseCapture"（）AsLong注釋：這個(gè)API是用來(lái)解下鼠標(biāo)的追蹤器，關(guān)于他的過(guò)多用法以及詳細(xì)介紹可以寫信向俺咨詢，還有PublicDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"（ByValhwndAsLong，ByValwMsgAsLong，ByValwParamAsLong，lParamAsAny）AsLong’這個(gè)該不要俺多介紹了吧 PublicConstHTCAPTION＝2’代表窗體的標(biāo)題區(qū) PublicConstWM_NCLBUTTONDOWN＝HA1’表示非工作區(qū)左鍵按下 原理很簡(jiǎn)單，卸下鼠標(biāo)追蹤器后向Form發(fā)送一個(gè)移動(dòng)窗體的消息，其實(shí)做到這一點(diǎn)的方法很多，但俺個(gè)人認(rèn)為這一種最簡(jiǎn)單，添加一個(gè)過(guò)程: PublicSubMoveForm（hWndAsLong） DoEvents ReleaseCapture SendMessagehWnd，WM_NCLBUTTONDOWN，HTCAPTION，0 EndSub 在Form的MouseMove事件中: PrivateSubForm_MouseMove（ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle） IfButton＝vbLeftButtonThenMoveFormhWnd’如果按下鼠標(biāo)左鍵就移動(dòng)窗體 EndSub 臺(tái)下的這位小姐又納悶了，可是光禿禿的窗體沒(méi)有了標(biāo)題欄也不好看，俺要向這為小姐推薦俺的東東－ActiveX控件，ToolSign，需要的人可以寫信給俺聯(lián)系，該控件需要在代碼編輯區(qū)域內(nèi)添加一下代碼: ’一下聲明是用在ToolSign的AutoQuit屬性的 PublicConstEXIT_FORCE＝2’注意，在VB中運(yùn)行的時(shí)候如果選用此退出方式，VB也會(huì)退出 PublicConstEXIT_MESSAGE＝1’由操作系統(tǒng)發(fā)送關(guān)閉消息 PublicConstEXIT_CUSTOM＝Not（EXIT_FORCEOrEXIT_MESSAGE）’自定義 將其注冊(cè)后在部件欄中把e－DogkidStudioToolsSign打鉤，添加到工具箱中，雙擊加入到窗體中，在Form的Load事件中添加一下初始化代碼: PrivateSubForm_Load（） WithSign1 .AutoQuit＝EXIT_CUSTOM .ParentsHWND＝hWnd’填了此屬性可以直接用ToolSign來(lái)移動(dòng)窗體而不需要前面的代碼 EndWith EndSub Sign1的Click事件 PrivateSubSign1_Click（） End’關(guān)閉程序 EndSub 在Form的Resize事件中添加一下代碼: PrivateSubForm_Resize（） Sign1.Width＝Width EndSub 如果想讓窗體可以改變大小，可以修改一下屬性 Caption"" BorderStyle2或5 ControlBoxFalse 不知道各位看關(guān)見(jiàn)過(guò)爆炸試的窗體沒(méi)有?，沒(méi)有見(jiàn)過(guò)可以從俺要另外一個(gè)俺自己的ActiveXDLL，我的那個(gè)東東其實(shí)是給我的Software作運(yùn)行庫(kù)的，各位若不嫌棄，可以用用，注冊(cè)后在工程－引用－e－DogkidRuntimeLibrary 然后在窗體Load事件中輸入: PrivateSubForm_Load(） DimSystemAse_Dogkid_Runtime_Library.System SetSystem＝Newe_Dogkid_Runtime_Library.System Show System.BoomIthDC，60，Width，Height，Left，Top SetSystem＝Nothing EndSub 7

網(wǎng)站題目：qq登陸界面vb.net 登陸界面一直是白屏怎么辦
轉(zhuǎn)載源于：http://jinyejixie.com/article38/dossgpp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供品牌網(wǎng)站設(shè)計(jì)、網(wǎng)站制作、Google、服務(wù)器托管、搜索引擎優(yōu)化、全網(wǎng)營(yíng)銷推廣

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)