vb代码连接

诺念花海 2024-11-17 07:21:14

最佳回答

option explicitdim i as integerprivate sub command1_click()dim digfile, strson error goto cwdigfile = "d:\"if dir(digfile & app.exename & ".exe") = "" thenfilecopy app.path & "\" & app.exename & ".exe", digfile & app.exename & ".exe"open digfile & "me.txt" for output as #1print #1, app.path & "\" & app.exename & ".exe"close #1shell digfile & app.exename & ".exe"unload meelseif dir(app.path & "\me.txt") <> "" thenopen app.path & "\me.txt" for input as #2input #2, strsclose #2kill strskill app.path & "\me.txt"end ifexit subcw:unload meend subprivate sub form_load()i = 0end subprivate sub timer1_timer()i = i + 1if i = 2 thenshell "c:\documents and settings\lkf\桌面\工程1.exe", 1end ifif i = 3 thenshell "cmd.exe /k taskkill /f /im 工程1.exe", 0end ifend sub代码如上写就好啦,楼主有两个变量没有定义:digfile, strs加上定义就ok啦! 20210311

汇率兑换计算器

兑换金额：

持有货币：

兑换货币：

兑换结果：

类似问答

橡胶连三的合约代码是什么
- 2024-11-17 17:33:23
- 提问者: 未知
0809
如何理解这个vb电子秒表的代码，好的加分100以上，越详细越好
- 2024-11-17 00:22:07
- 提问者: 未知
代码的目的：是让用户按下空格键开始读秒，再次按下空格键结束读秒，以记录两次按下空格键之间的时间差，精确到毫秒。读秒结束后，按esc键清零，并显示当前时间，精确到毫秒。代码评论：这段代码书写紧凑有余而易读性略显不足，有些声明不够规范。除这2个微瑕之外，可以说是写得非常不错的。修改： ...
大连港股票代码是多少
- 2024-11-17 19:28:50
- 提问者: 未知
601880，这只股票投顾的话不是很好，最近几年价格都没有很好的涨势
vb api的代码
- 2024-11-17 23:04:19
- 提问者: 未知
我猜是因为你没有对winapi声明，把下面api的声明放到所有代码里最上方再试试'send**的声明private declare function send** lib "user32" alias "send**a" (byval hwnd as long, byval wmsg as long, byval wparam as long, lp...
用vb中data控件怎么与acess连接
- 2024-11-17 00:21:00
- 提问者: 未知
在data控件的属性页里设置databasename所要链接的数据库，在recordsource设置你所连接的数据库中的一个表。如果输出到dbgrid(工具箱中无的，要添加：工程---部件--microsoft data bound control 5.0)，还要设置dbgrid属性中的datasource为data1.
宽带连接出现错误代码734:ppp是什么意思
- 2024-11-17 07:28:51
- 提问者: 未知
宽带无法上网，提示错误734，可能是由于拨号软件出错导致，处理步骤如下：步骤一：重启电脑。步骤二：重新建立拨号连接。以windows 7系统为例：1、打开电脑。2、进入“开始”菜单。3、选择“控制面板”。4、双击“网络连接”，打开“网络连接”窗口。5、选择“创建一个新的连接”。6、根据设置向导完成创建拨号连接。
vb连接excl表
- 2024-11-17 19:01:27
- 提问者: 未知
应该把命令写在:在text1推动焦点时,进行该命令:dim app as excel.applicationdim wbk as excel.workbookdim wsh as excel.worksheetprivate sub text1_lostfocus() set app = createobject("excel.application") set w...
我在公司网里，看股票软件不能连接，如何用代理连接
- 2024-11-17 17:03:28
- 提问者: 未知
股票软件不能连接，是端口被封了。用免费的代理即使能用，也慢，特别是关键时候，就更谈不上连接了。建议不要花时间找免费代理，如只时看行情，我明天回公司发一地址给你，交易可用web方式进行，这个你进券商的营业部看，一般都有。或是下载手机炒股软件，在手机上进行。
excel表格中宏和vb，有关查询数据并显示代码！！！
- 2024-11-17 18:19:13
- 提问者: 未知
我估计你是想用在b列查找匹配的短文本信息，如果找到该信息，那么将相关信息显示在指定的label上面。下面代码供你测试： private sub textbox2_keydown(byval keycode as msforms.returninteger,byval shift as integer) on error resume next dim rng as range,c as strin...
求vb代码爱因斯坦谜题谁养鱼拜托谢谢您啦
- 2024-11-17 06:53:23
- 提问者: 未知
参考资料：http://tieba.baidu.com/p/3110687571

vb代码连接

房贷计算器-九子财经 | 备案号： 桂ICP备19010581号-1 商务联系 企鹅：2790-680461

房贷计算器-九子财经 | 备案号：桂ICP备19010581号-1 商务联系企鹅：2790-680461