qq登錄代碼編程

Ⅰ VB製作QQ登錄窗口教程和代碼

1、在桌面上，滑鼠左鍵雙擊程序，打開VB編程軟體，在左邊工具欄上，單擊【Label】按鈕，在Form1窗口上繪制出兩標簽，用來寫文字的說明。

Ⅱ 請問用java程序模擬qq登錄界面的代碼怎麼寫啊

太簡單了！你看看！ package dyno.swing.beans.qq; import javax.swing.*; import javax.swing.event.MouseInputListener; import org.jvnet.substance.skin.; /*import org.jvnet.substance.skin.SubstanceModerateLookAndFeel; import org.jvnet.substance.skin.;*/ import java.awt.*; import java.awt.event.ActionEvent; import java.awt.event.ActionListener; import java.awt.event.MouseEvent; import java.io.IOException; import java.io.PrintWriter; import java.net.Socket; import java.net.UnknownHostException; import java.sql.ResultSet; import java.sql.SQLException; import java.util.Scanner; public class QQLogin extends JFrame implements MouseInputListener,ActionListener{ JLabel guanggao,beijing,wenzi,she,zhanghaowb,qq1,dengluzhuangtai; // JTextField zhanghao; JPopupMenu haoma; JComboBox zhanghao; JPasswordField mima; JCheckBox jizhumima,zidongdenglu; JButton denglu,chashamuma; JProgressBar jpb; SimThread activity; Timer activityMonitor; String name,qq; Socket s; public QQLogin() { try { UIManager.setLookAndFeel("com.sun.java.swing.plaf.windows.WindowsLookAndFeel"); } catch (ClassNotFoundException e1) { // TODO 自動生成 catch 塊 e1.printStackTrace(); } catch (InstantiationException e1) { // TODO 自動生成 catch 塊 e1.printStackTrace(); } catch (IllegalAccessException e1) { // TODO 自動生成 catch 塊 e1.printStackTrace(); } catch ( e1) { // TODO 自動生成 catch 塊 e1.printStackTrace(); } chashamuma = new JButton("查殺木馬"); chashamuma.setBounds(240, 155,85, 20); this.add(chashamuma); jpb = new JProgressBar(); jpb.setStringPainted(true); jpb.setBounds(100, 240, 200, 15); this.add(jpb); chashamuma.addActionListener(new ActionListener(){ public void actionPerformed(ActionEvent e){ jpb.setMaximum(1000);//設置進度欄的最大值 activity=new SimThread(1000); activity.start();//啟動線程 activityMonitor.start();//啟動定時器 chashamuma.setEnabled(false);//禁止按鈕 } }); activityMonitor=new Timer(100,new ActionListener(){//每0.5秒執行一次 public void actionPerformed(ActionEvent e){//以下動作將在事件調度線程中運行，十分安全 int current=activity.getCurrent();//得到線程的當前進度 jpb.setValue(current);//更新進度欄的值 if(current==activity.getTarget()){//如果到達目標值 activityMonitor.stop();//終止定時器 chashamuma.setEnabled(true);//激活按鈕 } } }); dengluzhuangtai = new JLabel(new ImageIcon("zaixianzhuangtai.jpg")); dengluzhuangtai.setBounds(75, 145, 35, 30); this.add(dengluzhuangtai); dengluzhuangtai.addMouseListener(this); denglu = new JButton("登錄"); denglu.setBounds(140, 155, 80, 20); this.add(denglu); this.setAlwaysOnTop(true); zidongdenglu = new JCheckBox("自動登錄"); zidongdenglu.setBounds(200, 190, 100, 30); this.add(zidongdenglu); jizhumima = new JCheckBox("記住密碼"); jizhumima.setBounds(100, 190, 100, 30); // jizhumima.setBackground(new Color(228, 244, 255)); this.add(jizhumima); haoma = new JPopupMenu(); /* zhanghao = new JTextField(20); zhanghao.setBounds(120, 78, 135, 20); zhanghao.setBorder(BorderFactory.createMatteBorder(1, 1, 1, 1, Color.WHITE)); zhanghao.setFont(new Font("宋體",Font.PLAIN,13)); this.add(zhanghao);*/ // zhanghaowb = new JLabel(new ImageIcon("2.png")); // zhanghaowb.setBounds(90, 73, 194, 31); // jiantou = new JLabel(new ImageIcon("jiantou.png")); // jiantou.setBounds(256, 78, 23, 21); // jiantou.addMouseListener(this); // this.add(jiantou); // this.add(zhanghaowb); chashamuma.addActionListener(this); mima = new JPasswordField(); mima.setEchoChar('*'); mima.setFont(new Font("宋體",Font.PLAIN,13)); mima.setBounds(100, 113, 150, 20); this.add(mima); zhanghao = new JComboBox(); zhanghao.setEditable(true); zhanghao.setBounds(100, 78, 150, 20); zhanghao.setFont(new Font("宋體",Font.PLAIN,13)); this.add(zhanghao); guanggao = new JLabel(new ImageIcon("guanggao.gif")); guanggao.setBounds(0, 0, 334, 64); beijing = new JLabel(new ImageIcon("beijing.jpg")); beijing.setBounds(0, 64, 334, 154); wenzi = new JLabel(new ImageIcon("wenzi.jpg")); wenzi.setBounds(30, 75, 50, 100); denglu.addActionListener(this); // zhanghaowb.addMouseListener(this); // zhanghao.addMouseListener(this); this.add(wenzi); this.add(beijing); this.setLayout(null); this.add(guanggao); this.setVisible(true); this.setDefaultCloseOperation(3); this.setSize(340, 250); this.setLocationRelativeTo(null); } public static void main(String[] args) { /*JFrame.(true); try { UIManager.setLookAndFeel(new ()) ; UIManager.setLookAndFeel("org.jvnet.substance.skin."); } catch (Exception e) { System.out.println("Substance Raven Graphite failed to initialize"); } SwingUtilities.invokeLater(new Runnable() { public void run() { QQLogin w = new QQLogin(); w.setVisible(true); } });*/ new QQLogin(); } public void mouseClicked(MouseEvent e) { // TODO 自動生成方法存根 } public void mouseEntered(MouseEvent e) { if(e.getSource() == dengluzhuangtai) { dengluzhuangtai.setIcon(new ImageIcon("zaixianzhuangtaidian.jpg")); } } public void mouseExited(MouseEvent e) { if(e.getSource() == dengluzhuangtai) { dengluzhuangtai.setIcon(new ImageIcon("zaixianzhuangtai.jpg")); } } public void mousePressed(MouseEvent e) { // TODO 自動生成方法存根 } public void mouseReleased(MouseEvent e) { // TODO 自動生成方法存根 } public void mouseDragged(MouseEvent e) { // TODO 自動生成方法存根 } public void mouseMoved(MouseEvent e) { // TODO 自動生成方法存根 } public class liaotianchuangkou { } class SimThread extends Thread{//線程類 private int current;//進度欄的當前值 private int target;//進度欄的最大值 public SimThread(int t){ current=0; target=t; } public int getTarget(){ return target; } public int getCurrent(){ return current; } public void run(){//線程體 try{ while (current<target && !interrupted()){//如果進度欄的當前值小於目標值並且線程沒有被中斷 sleep(10); current++; if(current == 700) { sleep(3000); } else if(current == 730) { sleep(1000); } } }catch (InterruptedException e){} } } public void actionPerformed(ActionEvent e) { if(e.getSource() == chashamuma) { this.setBounds(300, 300, 340, 300); } else if(e.getSource() == denglu) { String zh = (String) zhanghao.getSelectedItem(); System.out.println(zhanghao.getSelectedItem()); // System.out.println(zhanghao.getItemAt(0)); char [] str = mima.getPassword(); String mima = String.valueOf(str);; System.out.println(mima); // Sql login = new Sql(); // if(login.login(zh,mima)) // { try { s = new Socket("127.0.0.1",8888); System.out.println(s); PrintWriter pw; Scanner sc; pw = new PrintWriter(s.getOutputStream(),true); sc = new Scanner(s.getInputStream()); String str2 = "login#289872400198724#"+zh+"#289872400198724#"+mima; System.out.println(str2); pw.println(str2); String str3 = sc.nextLine(); String yanzheng[] = str3.split("#"); System.out.println(str3); if(yanzheng[0].equals("true")) { System.out.println("登陸成功!"); name = yanzheng[1]; qq = yanzheng[2]; // this.setVisible(false); // Thread.sleep(5000); System.out.println("woao"+name); System.out.println("woai"+qq); Logined logined = new Logined(name,qq); this.setVisible(false); } else { JOptionPane.showMessageDialog(this, "用戶名或密碼錯誤!", "用戶名或密碼錯誤!", 0); } } catch (UnknownHostException e2) { // TODO 自動生成 catch 塊 e2.printStackTrace(); } catch (IOException e2) { // TODO 自動生成 catch 塊 e2.printStackTrace(); } /*try { login.rs = login.stat.executeQuery("select * from qquser where username='"+zh+"' and password = '"+mima+"'"); boolean flag = login.rs.next(); if(flag == true) { name = login.rs.getString("name"); qq = login.rs.getString("username"); } else { }*/ // } catch (SQLException e1) { // TODO 自動生成 catch 塊 // e1.printStackTrace(); // } } else { JOptionPane.showMessageDialog(this, "用戶名或密碼錯誤", "輸入錯誤", 0); } // this.setVisible(false); //new Logined(); } }

Ⅲ 用java實現QQ登錄界面怎麼寫

用java做QQ登錄界面的寫法如下：

package ch10;

import java.awt.*;

import java.awt.event.*;

import javax.swing.*;

1、//定義該類繼承自JFrame，實現ActionListener介面

public class LoginTest extends JFrame implements ActionListener

{

2、//創建JPanel對象

private JPanel jp=new JPanel();

3、//創建3個標並加入數組

JLabel name = new JLabel("請輸入用戶名");

JLabel password = new JLabel("請輸入密碼");

JLabel show = new JLabel("");

private JLabel[] jl={name,password,show};

4、//創建登陸和重置按扭並加入數組

JButton login = new JButton("登陸");

JButton reset = new JButton("重置");

private JButton[] jb={login,reset};

5、//創建文本框以及密碼框

private JTextField jName=new JTextField();

private JPasswordField jPassword =new JPasswordField();

public LoginTest()

{

6、//設置布局管理器為空布局，這里自己擺放按鈕、標簽和文本框

jp.setLayout(null);

for(int i=0;i<2;i++)

{

7、//設置標簽和按扭的位置與大小

jl[i].setBounds(30,20+40*i,180,20);

jb[i].setBounds(30+110*i,100,80,20);

8、//添加標簽和按扭到JPanel容器中

jp.add(jl[i]);

jp.add(jb[i]);

//為2個按鈕注冊動作事件監聽器

jb[i].addActionListener(this);

}

9、//設置文本框的位置和大小，注意滿足美觀並足夠用戶名的長度

jName.setBounds(130,15,100,20);

10、//添加文本框到JPanel容器中

jp.add(jName);

11、//為文本框注冊動作事件監聽器

jName.addActionListener(this);

12、//設置密碼框的位置和大小，注意滿足美觀和足夠密碼的長度

jPassword.setBounds(130,60,100,20);

13、//添加密碼框到JPanel容器中

jp.add(jPassword);

14、//設置密碼框中的回顯字元，這里設置美元符號

jPassword.setEchoChar('$');

15、//為密碼框注冊動作事件監聽器

jPassword.addActionListener(this);

16、//設置用於顯示登陸狀態的標簽大小位置，並將其添加進JPanel容器

jl[2].setBounds(10,180,270,20);

jp.add(jl[2]);

17、//添加JPanel容器到窗體中

this.add(jp);

18、//設置窗體的標題、位置、大小、可見性及關閉動作

this.setTitle("登陸窗口");

this.setBounds(200,200,270,250);

this.setVisible(true);

this.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);

}

19、//實現動作監聽器介面中的方法actionPerformed

public void actionPerformed(ActionEvent e)

{

20、//如果事件源為文本框

if(e.getSource()==jName)

{

21、//切換輸入焦點到密碼框

jPassword.requestFocus();

}

22、//如果事件源為重置按扭

else if(e.getSource()==jb[1])

{

23、//清空姓名文本框、密碼框和show標簽中的所有信息

jl[2].setText("");

jName.setText("");

jPassword.setText("");

24、//讓輸入焦點回到文本框

jName.requestFocus();

}

25、//如果事件源為登陸按鈕，則判斷登錄名和密碼是否正確

else

{

26、//判斷用戶名和密碼是否匹配

if(jName.getText().equals("lixiangguo")&&

String.valueOf(jPassword.getPassword()).equals("19801001"))

{

27、jl[2].setText("登陸成功，歡迎您的到來！");

}

else

{

28、jl[2].setText("對不起，您的用戶名或密碼錯誤！");

}

}

}

public static void main(String[] args)

{

29、//創建LoginTest窗體對象

new LoginTest();

}

}

Ⅳ qq登錄程序的代碼怎麼寫

登錄界面 xxx = new 登錄界面();
this.Hide();
登錄界面.Show();

Ⅳ 求VB自動登陸QQ代碼

看看這個行不行。。
Private
Sub
Command1_Click()
Dim
aaa
aaa
=
Shell("D:\QQ\QQ.exe",
1)
AppActivate
aaa
'比如你的QQ是1234567
SendKeys
"{1}",
True
SendKeys
"{2}",
True
SendKeys
"{3}",
True
SendKeys
"{4}",
True
SendKeys
"{5}",
True
SendKeys
"{6}",
True
SendKeys
"{7}",
True
SendKeys
"{tab}",
True
'不清楚tab鍵是不是這樣
'
再像上面一樣輸入密碼1111
SendKeys
"{1}",
True
SendKeys
"{1}",
True
SendKeys
"{1}",
True
SendKeys
"{1}",
True
SendKeys
"{tab}",
True
'焦點到登入按鈕
SendKeys
"{enter}",
True
'也不清楚是不是這樣
End
Sub

Ⅵ 求人幫我編一段VBS QQ自動登錄代碼

::運行前請修改QQ所在路徑、QQ號碼及QQ密碼
::支持 QQ2009 QQ2010

:: By LJ_SunTB【網路知道BAT-GO團】

@echo off
::改成你的QQ號碼
set QQ號碼=123456
::改成你的QQ密碼
set QQ密碼=abcdef
::改成QQ.EXE所在完整路徑
set QQ路徑=F:\qq\QQ\1.EXE
set vbs=qqlogin.vbs
(echo Dim a
echo Set a=WScript.CreateObject^("WScript.shell"^)
echo a.run """%QQ路徑%"""
echo WScript.Sleep 3000
echo a.SendKeys "{TAB}"
echo a.SendKeys "{TAB}"
echo a.SendKeys "{TAB}"
echo a.SendKeys "%QQ號碼%"
echo a.SendKeys "{TAB}"
echo WScript.Sleep 200
echo a.SendKeys "%QQ密碼%"
echo WScript.Sleep 200
echo a.SendKeys "{Enter}"
)>"%vbs%"
start "%vbs%"
del "%vbs%"

Ⅶ 用vb編寫QQ登陸！

在QQ登錄界面上輸入好帳號密碼並選中自動登錄，VB代碼：
Private Sub Command1_Click()
Shell "D:\Program Files\QQ2007\QQ.exe " 'QQ路徑
End Sub

Ⅷ c語言qq自動登錄程序如何做

如果是其他的程序登陸，或許可以用用調用打開指定位置的程序，比如c的system（），然後輸入start程序路徑，然後就是獲取窗口句柄，以及編輯框等空間，獲取發送信息登陸，但是現在的qq版本的那些空間已經不能獲取那些空間的id了，是畫出來的，我以前試著要獲取qq聊天信息框中的內容，但是不能獲取裡面的句柄
試試上面的方法，應該是不可以了，那就只有用獲取窗口的位置，然後模擬滑鼠鍵盤的操作來搞定了，至於輸入賬號，就用剪切板粘貼，上面所說的這些都是有api函數可以實現的，這是原理，具體的網路吧

Ⅸ 用VB做一個QQ登陸框代碼怎麼寫

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

Ⅹ 易語言怎樣編寫QQ自動登錄

直接下一個按鍵精靈就能完成樓主的要求了
按鍵精靈8是最新版

樓主你最起碼給點分吧

按鍵精靈和vb一樣（差不了太多）

這是我很久以前寫的代碼

代碼
---------------------------------------------

//判斷文件是否存在如果存在將在下次運行無需手動輸入賬號以及密碼!
aa = Plugin.File.IsFileExit("c:\c.txt")
If aa = true then
Call haha
Else
k=inputbox("QQ路徑:",麥兜Terran)
y= inputbox("用戶名:",麥兜Terran)
m= inputbox("密碼:",麥兜Terran)

//創建一個文件,作為記錄
RunApp "cmd /c cd.>c:\c.txt&",0
Call Plugin.File.WriteFileEx("c:\c.txt", y)
Call Plugin.File.WriteFileEx("c:\c.txt", m)
Call Plugin.File.WriteFileEx("c:\c.txt", k)
Call haha
End if

//開始工作
Sub haha
l = Plugin.File.ReadFileEx("c:\c.txt")
x = Split(l,"|")
RunApp x(2)
KeyPress 9,9
SayString x(0)
KeyPress 9,1
SayString x(1)
KeyPress 9,5
KeyPress 13,1
End Sub