vb.net自动输入,用vb实现自动点击-成都快上网建站

vb.net自动输入,用vb实现自动点击

VB.NET 向指定(网页或软件)的输入框内输入字符,如何实现?

假如Form1有个TextBox1,双击TextBox1填入123

成都创新互联公司-专业网站定制、快速模板网站建设、高性价比相城网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式相城网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖相城地区。费用合理售后完善,10余年实体公司更值得信赖。

Public Class Form1

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub TextBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.DoubleClick

System.Windows.Forms.SendKeys.Send("123")

End Sub

End Class

看你的VB.NET 版本了

用 My.Computer.Keyboard.SendKeys("123", True) 代替 System.Windows.Forms.SendKeys.Send("123") 也可以

原码:

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub TextBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.DoubleClick

My.Computer.Keyboard.SendKeys("123", True)

End Sub

End Class

VS2010旗舰版 VB.NET录入''' 或C# 录入/// 会自动出现注释. 在哪里设置啊?

,自动注释,,

你在方法名上一行,或者 类别名称上一行,连着输入三个斜线,/// 就会自动变成这个。

工具”——“选项”——文本编辑器——C#——高级--》右侧有 “为 ///生成xml文档注释” 打上勾就行了。

vb.net在textbox1中输入六个数字后,自动将格式转换为时间格式,如输入120314自动变成12:03:14,怎么操作

将输入的字符串用各种方法尝试转换为日期变量。然后对再将日期变量输出回textbox中。

这里要做的就是用try 配合 各种转换为日期变量的函数来得到一个日期结果。如果所有格式都无法转为日期,则可以提示用户无法转换 或是根本 不操作。

如何编程实现在另一程序窗口的文本框自动输入文本并自动跳到另一个文本框或者按钮

'使用VBS例,下载dynwrap.dll,然后拷贝至c:\windows\system32,运行regsvr32 dynwrap.dll进行注册

Set ws=CreateObject("WSCript.shell")

Set Wrap1 = CreateObject("DynamicWrapper")

Wrap1.Register "USER32.DLL", "FindWindow","I=ss","f=s", "R=l"

Wrap1.Register "USER32.DLL", "SetForegroundWindow", "I=h", "f=s", "R=l"

hWin = Wrap1.FindWindow(vbNullString, CStr("窗口名称"))

if hWin 0 then

Clipboard = "MsHta vbscript:ClipBoardData.setData(""Text"",""" "您要输入的文本" """)(Close)"

ws.Run(Clipboard) '复制文本

ws.sendkeys "{tab}" '发送tab键移动焦点

ws.sendkeys "^v" '发送粘贴,确保剪切板有内容

end if


文章名称:vb.net自动输入,用vb实现自动点击
转载注明:http://kswjz.com/article/dsidggo.html
扫二维码与项目经理沟通

我们在微信上24小时期待你的声音

解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流