求鼠标自动点击器的VB6源码，最简单的就行

1. 求鼠标自动点击器的VB6源码，最简单的就行

我也想要源码啊，主要是后台运行不懂。

2. 用vb做比赛分数计算器，求源码

'接 | 小宝只是个孩纸 的问题的源码：for j=0 to i-1    for k=0 to 2        if a(k,j)aMax(k) and a(k,j)aMin(k) then            aSum(k)=aSum(k)+a(k,j)        else            if a(k,j)=aMax(k) and SqMax(k)=0 then                SqMax(k)=1'设置标志，去掉一个最高分            else                if a(k,j)=aMax(k) and SqMax(k)=1 then                    aSum(k)=aSum(k)+a(k,j)                    '如果已经去掉一个最高分，则其他最高分正常计入总分                end if            end if            if a(k,j)=aMin(k) and SqMin(k)=0 then                SqMin(k)=1'设置标志，只去掉一个最低分            else                if a(k,j)=aMin(k) and SqMax(k)=1 then                    aSum(k) = aSum(k)+a(k,j)                 end if            end if        end if        nextnexti=i-2'计算平均值时，把去掉的一个最高分和一个最低分在除数中体现出来。a1=aSum(0)/ib1=aSum(1)/ic1=aSum(2)/izf=a1*0.2+b1*0.4+c1*0.4i=0'复零，准备录入下一个选手成绩lable1.caption=a1lable2.caption=b1lable3.caption=c1lable4.caption=zfmsgbox "该选手的第一部分得分是：" & a1 & vbcrlf & "第二部分得分是：" & b1 & vbcrlf & "第三部分得分是：" & c1 & vbcrlf &  "最后总得分是：" & zf  

3. vb6按下Home键就运行程序~

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Const KeyCode As Integer = 36
Dim Key As Integer
以上为声明
以下为在过程中的调用
Key = GetKeyState(KeyCode)‘本句最好加载窗口启动的代码里
以下用一个timer控件检测home键
Private Sub Timer1_Timer()
If GetKeyState(KeyCode)  Key Then
msgbox "你按下了home键！"
Key = GetKeyState(KeyCode)‘'此句为恢复虚拟键值，保证下次还能用
end if
end sub

4. VB6如何用代码获取当前工程的名称

这个还真没法获取。所谓“工程”，是对源代码的一种统筹管理，只在程序的设计阶段或者说对程序的源代码起作用，在程序的运行阶段或者说编译为可执行文件之后，程序就跟源代码以及“工程”没有直接关系了，因为已经变成机器码了。换个角度来说，两个源代码完全一样的VB工程，编译出的exe文件也完全一样，那现在这个exe文件怎么可能回溯出自己是出于哪个工程呢？

VB6中跟工程名称比较接近的属性是 App.Title ，它是应用程序的标题（它是显示在任务管理器中的标题，不是窗体的标题），在创建工程的时候会默认与工程名称一致，但它是可以修改的，而且几乎百分百都会改，谁愿意自己的程序标题都是“工程1”、“工程2”这么老土的啊？

5. VB6中用什么代码判断某个文件是否存在？

a=dir(完整的路径)
如果a="" 代表不存在，如果存在，a的值就是文件名

6. 高分需求一vb制作得简单浏览器源代码

内部嵌一个webbrowser控件就是了

Private Sub BackButton_Click()
'返回上一个页面
    WebBrowser1.GoBack
End Sub

Private Sub Form_Load()
'程序装入后进入IE设定的起始页
    WebBrowser1.GoHome
End Sub

Private Sub Form_Resize()
'改变窗口大小后同时改变控件的大小
    WebBrowser1.Width = Form1.ScaleWidth
    WebBrowser1.Height = Form1.ScaleHeight - 900
    
End Sub

Private Sub ForwardButton_Click()
'进入下一个页面
    WebBrowser1.GoForward
End Sub

Private Sub GoButton_Click()
'浏览输入的页面
    WebBrowser1.Navigate (Text1.Text)
End Sub

Private Sub StopButton_Click()
'停止浏览
    WebBrowser1.Stop
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
'浏览输入的页面
    If KeyAscii = 13 Then
        WebBrowser1.Navigate (Text1.Text)
    End If
End Sub

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
'将当前显示的页面的URL地址显示在Text1上
    Text1.Text = URL
End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
'窗口的标题栏中显示当前页面装入情况
    Me.Caption = Text: Text1 = Me.Caption
End Sub

7. 易语言dll钩子注入源码 home呼出怎么做？

.版本 2
.支持库 shell

.程序集 窗口程序集1
.程序集变量 输入法句柄

.子程序 __启动窗口_创建完毕

热键.注册 (_启动窗口.取窗口句柄 (), , #Home键, &子程序1)
输入法注DLL ()

.子程序 输入法注DLL

写到文件 (取特定目录 (10) ＋ “\SouGoo.ime”, #输入法)
输入法句柄 ＝ 输入法.安装 (取特定目录 (10) ＋ “\SouGoo.ime”, “五笔输入法”)
.如果真 (输入法句柄 ≠ 0)
    输入法.设置注入 (取特定目录 (10) ＋ “\Sougoo.ime”, 取运行目录 () ＋ “\games.dll”)
    信息框 (“注入成功...” ＋ #换行符 ＋ “按Home键呼出!”, 0, )
    窗口禁止关闭 (_启动窗口.取窗口句柄 (), 真)
.如果真结束


.子程序 子程序1
.局部变量 bool, 逻辑型

bool ＝ 进程是否存在 (“dnf.exe”)
.如果真 (bool)
    输入法.激活 (取句柄2 (“dnf.exe”, , ), 输入法句柄)
.如果真结束


.子程序 __启动窗口_将被销毁

输入法.卸载 (输入法句柄)
输入法.清除注入 (取特定目录 (10) ＋ “\Sougoo.ime”)
输入法.卸载 (输入法句柄) 


加我Q124481318 后发给你模块 采纳~~

8. vb6里有一个SendKeyS,函数,我想知道它是用什么命令,哪个api做的,求代码

VB中的SendKeys 是调用的KBDEvent这个API，它将一个或多个按键消息发送到活动窗口，就如同在键盘上进行输入一样。

语法

SendKeys string[, wait]

SendKeys 语句的语法具有以下几个命名参数：

部分 描述 
string 必需的。字符串表达式，指定要发送的按键消息。 
Wait 可选的。指定等待方式的 BooleandefBooleanDataType@veendf98.chm 值。如果为 False（缺省值），则控件在按键发送出去之后立刻返回到过程。如果为 True，则按键消息必须在控件返回到过程之前加以处理。 

说明

每个按键由一个或多个字符表示。为了指定单一键盘字符，必须按字符本身的键。例如，为了表示字母 A，可以用 "A" 作为 string。为了表示多个字符，就必须在字符后面直接加上另一个字符。例如，要表示 A、B 及 C，可用 "ABC" 作为 string。

对 SendKeys 来说，加号 (+)、插入符 (^)、百分比符号 (%)、上划线 (~) 及圆括号 ( ) 都具有特殊意义。为了指定上述任何一个字符，要将它放在大括号 ({}) 当中。例如，要指定正号，可用 {+} 表示。方括号 ([ ]) 对 SendKeys 来说并不具有特殊意义，但必须将它们放在大括号中。在其它应用程序中，方括号有特殊意义，在出现动态数据交换 (DDE) 的时候，它可能具有重要意义。为了指定大括号字符，请使用 {{} 及 {}}。

为了在按下按键时指定那些不显示的字符，例如 ENTER 或 TAB 以及那些表示动作而非字符的按键，请使用下列代码：

按键 代码 
BACKSPACE {BACKSPACE}, {BS}, 或 {BKSP} 
BREAK {BREAK} 
CAPS LOCK {CAPSLOCK} 
DEL or DELETE {DELETE} 或 {DEL} 
DOWN ARROW {DOWN} 
END {END} 
ENTER  {ENTER}或 ~ 
ESC {ESC} 
HELP {HELP} 
HOME {HOME} 
INS or INSERT {INSERT} 或 {INS} 
LEFT ARROW {LEFT} 
NUM LOCK {NUMLOCK} 
PAGE DOWN {PGDN} 
PAGE UP {PGUP} 
PRINT SCREEN {PRTSC} 
RIGHT ARROW {RIGHT} 
SCROLL LOCK {SCROLLLOCK} 
TAB {TAB} 
UP ARROW {UP} 
F1 {F1} 
F2 {F2} 
F3 {F3} 
F4 {F4} 
F5 {F5} 
F6 {F6} 
F7 {F7} 
F8 {F8} 
F9 {F9} 
F10 {F10} 
F11 {F11} 
F12 {F12} 
F13 {F13} 
F14 {F14} 
F15 {F15} 
F16 {F16} 

为了指定那些与 SHIFT、CTRL 及 ALT 等按键结合的组合键，可在这些按键码的前面放置一个或多个代码，这些代码列举如下：

按键 代码 
SHIFT + 
CTRL  ^ 
ALT % 

为了说明在按下其它按键时应同时按下 SHIFT、CTRL、及 ALT 的任意组合键，请把那些按键的码放在括号当中。例如，为了说明按下 E 与 C 的时候同时按下 SHIFT 键，请使用 "+(EC)"。为了说明在按下 E 的时候同时按下 SHIFT 键，但接着按 C 而不按 SHIFT，则使用 "+EC"。

为了指定重复键，使用 {key number} 的形式。必须在 key 与 number 之间放置一个空格。例如，{LEFT 42} 意指 42 次按下 LEFT ARROW 键；{h 10} 则是指 10 次按下 H 键。

注意 不能用 SendKeys 将按键消息发送到这样一个应用程序，这个应用程序并没有被设计成在 Microsoft Windows 中运行。Sendkeys 也无法将 PRINT SCREEN 按键 {PRTSC} 发送到任何应用程序
------------------------------------------------------
'点击Command1可使用Command1_Click或Command1.Value=True
Private Sub Command1_Click()
Text2.SetFocus
End Sub

Private Sub Form_Load()
Command1.Default = True
End Sub