wincc常用vbs脚本
@墨饰1673：WINCC 如何使用VB脚本? -
曲伏17841653701…… VBS脚本可分为三类: 1.ProjectModule:项目模块,函数保存在 目录下,本项目有效 2.StandardModule:标准模块,函数保存在 下,所有项目均可调用. 3.Actions:全局脚本,根据触发条件后台调用,本项目有效你所说的全局子程序可以是...
@墨饰1673：如何编写wincc 按钮的vbs脚本 -
曲伏17841653701…… i/o域的属性中输入输出属性连接变量a, 按钮脚本:事件中 点击左键 Dim a set a=hmiruntime.tags(＂a＂) a.read hmiruntime.tags(＂b＂).write a.value 你试试
@墨饰1673：wincc中怎样用vbs脚本调用其它exe程序? -
曲伏17841653701…… Dim WSH Set WSH=CreateObject(＂Wscript.Shell＂) WSH.Run ＂calc＂
@墨饰1673：如何wincc中使用VBS脚本读写SQLServer数据库文件 -
曲伏17841653701…… 如何wincc中使用VBS脚本读写SQLServer数据库文件 set cn = CreateObject(＂ADODB.Connection＂) set rs = CreateObject(＂ADODB.Recordset＂) cn.Open ＂Provider=SQLOLEDB.1;Persist Security Info=False;data source=192.168.0.102;...
@墨饰1673：怎么用VBS脚本对WINCC内部的数组变量赋值 -
曲伏17841653701…… wincc的时候返回一个值给main,然后使用VBS调用执行后得到这个返回值,创建excel对象,然后使用cells写入对应单元格VBSSetobjExcel=CreateObject(＂Excel.Application＂)Scriptpath=WScript.ScriptFullNamesetobjWorkbook=objExcel.Workbooks.Open(FilePath)objExcel.Visible=TrueobjExcel.Cells(1,2)=内部变量值
@墨饰1673：wincc中用vbs写脚本If Dir(＂C:\＂&filename&＂.xls＂)=＂＂Then 不管有无文件if都成立 -
曲伏17841653701…… } field.setAccessible(true); Object fieldValue = field.get(obj); if (fieldValue == null) { continue; } toBeQueue.add(fieldValue); } tmpObjClass = tmpObjClass.getSuperclass(); }
@墨饰1673：WINCC VBS写变量 -
曲伏17841653701…… 在脚本中要写入 dim text Set text = HMIRuntime.Tags(＂text＂) write zk_1. text 其实你的数据时什么类型的还不知道.对于菜单组态基本上我没有见过哪个工程师在使用(语言切换倒是挺方便的),主要原因在于设计出来的效果很丑.
@墨饰1673：wincc中创建一个文本窗口,要求用变量连接控制,可以显示不同的文字,用VBS脚本做,文字内容在脚本中修改 -
曲伏17841653701…… 在文本窗口 右击 属性 字体 右击 选择 vbs Function Text_Trigger(Byval Item) Dim a Set a=HMIRuntime.Tags(＂变量＂) a.read If ＂a= ＂ Then Item.Text=＂内容1＂ End If If ＂a= ＂ Then Item.Text=＂内容2＂ End If ...... End Function 希望能帮到你
@墨饰1673：wincc里vb脚本的问题 -
曲伏17841653701…… 在文本框的属性的位置X----VBS动作中编写下面的程序,将变量1和变量2换成你的变量就可以实现你想要的功能,此功能已测试成功,希望对你有所帮助 Function Left_Trigger(ByVal Item) Dim a,b Set a=HMIRuntime.Tags (＂变量1＂) Set b=HMIRuntime.Tags (＂变量2＂) a.read b.read If a.value=1 And b.value=1 Then Item.Text=＂我来了＂ End If End Function
@墨饰1673：最小化指定窗口 VBS脚本
曲伏17841653701…… 脚本如下:Const strTitle = ＂完整的窗口标题＂Dim objShellSet objShell = CreateObject(＂Wscript.Shell＂)While True If objShell.AppActivate(strTitle) Then Wscript.Sleep 250 objShell.SendKeys ＂% ＂ objShell.SendKeys ＂n＂ Set objShell = ...
曲伏17841653701…… VBS脚本可分为三类: 1.ProjectModule:项目模块,函数保存在 目录下,本项目有效 2.StandardModule:标准模块,函数保存在 下,所有项目均可调用. 3.Actions:全局脚本,根据触发条件后台调用,本项目有效你所说的全局子程序可以是...
@墨饰1673：如何编写wincc 按钮的vbs脚本 -
曲伏17841653701…… i/o域的属性中输入输出属性连接变量a, 按钮脚本:事件中 点击左键 Dim a set a=hmiruntime.tags(＂a＂) a.read hmiruntime.tags(＂b＂).write a.value 你试试
@墨饰1673：wincc中怎样用vbs脚本调用其它exe程序? -
曲伏17841653701…… Dim WSH Set WSH=CreateObject(＂Wscript.Shell＂) WSH.Run ＂calc＂
@墨饰1673：如何wincc中使用VBS脚本读写SQLServer数据库文件 -
曲伏17841653701…… 如何wincc中使用VBS脚本读写SQLServer数据库文件 set cn = CreateObject(＂ADODB.Connection＂) set rs = CreateObject(＂ADODB.Recordset＂) cn.Open ＂Provider=SQLOLEDB.1;Persist Security Info=False;data source=192.168.0.102;...
@墨饰1673：怎么用VBS脚本对WINCC内部的数组变量赋值 -
曲伏17841653701…… wincc的时候返回一个值给main,然后使用VBS调用执行后得到这个返回值,创建excel对象,然后使用cells写入对应单元格VBSSetobjExcel=CreateObject(＂Excel.Application＂)Scriptpath=WScript.ScriptFullNamesetobjWorkbook=objExcel.Workbooks.Open(FilePath)objExcel.Visible=TrueobjExcel.Cells(1,2)=内部变量值
@墨饰1673：wincc中用vbs写脚本If Dir(＂C:\＂&filename&＂.xls＂)=＂＂Then 不管有无文件if都成立 -
曲伏17841653701…… } field.setAccessible(true); Object fieldValue = field.get(obj); if (fieldValue == null) { continue; } toBeQueue.add(fieldValue); } tmpObjClass = tmpObjClass.getSuperclass(); }
@墨饰1673：WINCC VBS写变量 -
曲伏17841653701…… 在脚本中要写入 dim text Set text = HMIRuntime.Tags(＂text＂) write zk_1. text 其实你的数据时什么类型的还不知道.对于菜单组态基本上我没有见过哪个工程师在使用(语言切换倒是挺方便的),主要原因在于设计出来的效果很丑.
@墨饰1673：wincc中创建一个文本窗口,要求用变量连接控制,可以显示不同的文字,用VBS脚本做,文字内容在脚本中修改 -
曲伏17841653701…… 在文本窗口 右击 属性 字体 右击 选择 vbs Function Text_Trigger(Byval Item) Dim a Set a=HMIRuntime.Tags(＂变量＂) a.read If ＂a= ＂ Then Item.Text=＂内容1＂ End If If ＂a= ＂ Then Item.Text=＂内容2＂ End If ...... End Function 希望能帮到你
@墨饰1673：wincc里vb脚本的问题 -
曲伏17841653701…… 在文本框的属性的位置X----VBS动作中编写下面的程序,将变量1和变量2换成你的变量就可以实现你想要的功能,此功能已测试成功,希望对你有所帮助 Function Left_Trigger(ByVal Item) Dim a,b Set a=HMIRuntime.Tags (＂变量1＂) Set b=HMIRuntime.Tags (＂变量2＂) a.read b.read If a.value=1 And b.value=1 Then Item.Text=＂我来了＂ End If End Function
@墨饰1673：最小化指定窗口 VBS脚本
曲伏17841653701…… 脚本如下:Const strTitle = ＂完整的窗口标题＂Dim objShellSet objShell = CreateObject(＂Wscript.Shell＂)While True If objShell.AppActivate(strTitle) Then Wscript.Sleep 250 objShell.SendKeys ＂% ＂ objShell.SendKeys ＂n＂ Set objShell = ...
