189 8069 5689
调用c:\1.bat，可以这样：
创新互联 - 重庆服务器托管，四川服务器租用，成都服务器租用，四川网通托管,绵阳服务器托管，德阳服务器托管，遂宁服务器托管，绵阳服务器托管，四川云主机，成都云主机，西南云主机，重庆服务器托管，西南服务器托管，四川/成都大带宽，机柜大带宽、租用·托管，四川老牌ＩＤＣ服务商
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Shell("cmd.exe /c call c:\1.bat", AppWinStyle.NormalFocus)
End Sub
'引用
Imports System.Data.OleDb
'引入数据库信息
Dim apppath As String = My.Application.Info.DirectoryPath
Dim ole_conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" apppath "\MyMediaDatabase.mdb;Persist Security Info=False")
'过程
Dim in_m As New OleDbCommand
in_m.Connection = ole_conn
in_m.CommandText = tbSQLStr.text
ole_conn.Open()
in_m.ExecuteNonQuery()
ole_conn.Close()
不想用点击，直接执行，那么你肯定就不能用onclick事件了。
在网页中JS函数自动执行常用三种方法
在HTML中的Head区域中，有如下函数：
SCRIPT
LANGUAGE="JavaScript"
functionn
MyAutoRun()
{
//以下是您的函数的代码，请自行修改先！
alert("函数自动执行哦！");
}
/SCRIPT
下面，我们就针对上面的函数，让其在网页载入的时候自动运行！
①第一种方法
将如上代码改为：
SCRIPT
LANGUAGE="JavaScript"
functionn
MyAutoRun()
{
//以下是您的函数的代码，请自行修改先！
alert("函数自动执行哦！");
}
window.onload=MyAutoRun();
//仅需要加这一句
/SCRIPT
②第二种方法
修改网页的Body为：
body onLoad="MyAutoRun();"
或者改为：
body onLoad="javascript:MyAutoRun();"
③第三种方法
使用JS定时器来间断性的执行函数：
setTimeout("MyAutoRun()",1000); //隔1000毫秒就执行一次MyAutoRun()函数
实现方法，将最上面的那JS函数，改为：
SCRIPT
LANGUAGE="JavaScript"
functionn
MyAutoRun()
{
//以下是您的函数的代码，请自行修改先！
alert("函数自动执行哦！");
}
setTimeout("MyAutoRun()",1000);
//这样就行拉
/SCRIPT
其实最简单的方法是设置一个全局的变量，然后加一个timer，不停显示最新的变量值
多个线程执行的时候，是按CPU时钟轮番执行的，你可以在两个SUB中增加一条输出到即时窗口：debug.print test_time
看不出你的test1和test2做什么用的？
首先你要知道vb和vb.net是完全不同的。
vb6.0（vb最后的一款编译器）编译的软件只要没有用到外在的ocx控件则可以在windows下顺利运行，否则需要把ocx控件也安装到对方电脑中。
vb.net则需要安装.net
framework(相当与安装虚拟机)，否则无法运行。
20006年以后的vista都默认安装了.net
framework的。