翼展电脑服务中心


一个好玩的小程序

2019-6-19 乱云飞 评论(0) 浏览(2)

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim Pause As Boolean
'=============================’
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_RIGHTDOWN = &H8 '模拟鼠标右键按下消息
Private Const MOUSEEVENTF_RIGHTUP = &H10  '模拟鼠标右键抬起消息
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = &H2 '释放按键常数
'=============================’

Private Sub Command1_Click()
DoEvents

Sleep 5000
Open App.Path & "\待输入.txt" For Input As #1
    Do While Not EOF(1)
       Line Input #1, textline
       If textline = "" Then
       GoTo tt:
       End If
       
       '=========================================倍率输入
blh = Len(textline)
    For s = 1 To blh
        Sleep 10
    tm1 = Mid(textline, s, 1)
    
    Select Case tm1
        Case "0"
Call keybd_event(48, 0, 0, 0) '按下
Call keybd_event(48, 0, KEYEVENTF_KEYUP, 0) '释放
        Case "1"
Call keybd_event(49, 0, 0, 0) '按下
Call keybd_event(49, 0, KEYEVENTF_KEYUP, 0) '释放
        Case "2"
Call keybd_event(50, 0, 0, 0) '按下
Call keybd_event(50, 0, KEYEVENTF_KEYUP, 0) '释放
        Case "3"
Call keybd_event(51, 0, 0, 0) '按下
Call keybd_event(51, 0, KEYEVENTF_KEYUP, 0) '释放
        Case "4"
Call keybd_event(52, 0, 0, 0) '按下
Call keybd_event(52, 0, KEYEVENTF_KEYUP, 0) '释放
        Case "5"
Call keybd_event(53, 0, 0, 0) '按下
Call keybd_event(53, 0, KEYEVENTF_KEYUP, 0) '释放
        Case "6"
Call keybd_event(54, 0, 0, 0) '按下
Call keybd_event(54, 0, KEYEVENTF_KEYUP, 0) '释放
        Case "7"
Call keybd_event(55, 0, 0, 0) '按下
Call keybd_event(55, 0, KEYEVENTF_KEYUP, 0) '释放
        Case "8"
Call keybd_event(56, 0, 0, 0) '按下
Call keybd_event(56, 0, KEYEVENTF_KEYUP, 0) '释放
        Case "9"
Call keybd_event(57, 0, 0, 0) '按下
Call keybd_event(57, 0, KEYEVENTF_KEYUP, 0) '释放

    End Select
    DoEvents

    Next s
'=========================================倍率输入
Call keybd_event(13, 0, 0, 0) '按下
Call keybd_event(13, 0, KEYEVENTF_KEYUP, 0) '释放
Sleep Text1.Text




DoEvents
       
       i = i + 1 ''''''''''''''''''''''''''序号
tt:
    Loop
Close #1
MsgBox "任务完成"
End Sub

Private Sub Command2_Click()
End

End Sub

Private Sub Text2_Click()
Text2.Text = ""
End Sub

Private Sub 关于_Click()
MsgBox "制作:洛阳翼展科技 13213610060"
End Sub

翼展电脑淘宝店

2019-6-5 乱云飞 评论(0) 浏览(21) 标签: 监控摄像头 翼展电脑淘宝店 淘宝网店 监控录像机

翼展电脑淘宝店

 

https://ezhan.taobao.com/

老司机收藏的好网址

2019-6-5 乱云飞 评论(0) 浏览(1) 标签: 老司机 好网站 好网址 你懂的

[该内容已加密,请点击标题输入密码访问]

《色戒》完整无删版

2019-6-5 乱云飞 评论(0) 浏览(12) 标签: 在线播放 色戒 梁朝伟 汤唯 无删减 完整版 原版 高清

[该内容已加密,请点击标题输入密码访问]

智慧快递扫描系统/启动程序

2019-6-5 乱云飞 评论(0) 浏览(17) 标签: 智慧快递系统 快递面单扫描 面单拍照 启动程序

@echo off
@title 洛阳翼展科技/智慧快递扫描系统/启动程序
@set dir=包裹图片3
@E:
@ren %dir% %date:~0,4%%date:~5,2%%date:~8,2%%time:~0,2%%time:~3,2%%time:~6,2%%dir%
@md E:\%dir%
@C:
@start /d "C:\Program Files (x86)\Barcode\App" BarCode.exe
@EXIT

软件下载:2345浏览器一键安装合集最新版2019.6.1

2019-6-1 乱云飞 电脑 评论(0) 浏览(398) 标签: 2345浏览器 加速浏览器 安全浏览器 软件下载

软件下载:冰点还原8.3永久密钥版下载地址和注册码

2019-5-29 乱云飞 电脑 评论(0) 浏览(1046) 标签: 软件下载 冰点还原 电脑保护

冰点还原

软件下载:MSDN windows10 LTSB 企业版

2019-5-18 乱云飞 电脑 评论(0) 浏览(314) 标签: win10 软件下载 MSDN 原版系统

VMware15官网下载链接

2019-5-10 乱云飞 评论(0) 浏览(68) 标签: VM 虚拟机 安装虚拟机 考试系统 虚拟机下载

http://80c.cc/u/?336

Google Chrome 官网下载

2019-4-25 乱云飞 分享 评论(0) 浏览(561) 标签: 谷歌浏览器 google chrome

http://80c.cc/u/?347

预ICP备10086-001号 © 翼展网/80C.CC 技术支持/洛阳翼展科技
TEL / 13213610060 QQ / 345794501
Powered by emlog