vbscript

问题 I would like to create a vbscript to open a notepad text file I saved and keep this notepad text file on top of all other windows either until i minimise it or close it. I want to create a reminder in tasks then so it pops up every 30 minutes or so and reminds me but so when i browse it does not go in the background. Greatly appreciate any help. Dim oShell Set oShell = WScript.CreateObject ("WScript.Shell") oShell.run "notepad.exe C:\Users\***USER***\AppData\Roaming\Microsoft\Windows\Start

问题 In VBS script, I have created a simple message box application. It currently stays in front of all windows until the user responds and uses very simple coding X=MsgBox("Test Text" ,1+4069, "Test Title") But it always appears in the same place. Is there any way of making it appear in a random place on the screen? Please help! 回答1: There is one type of box which allows you to position it on the screen: InputBox Title = "Hello" DefaultValueText = "Hello Stackoverflow !" message = "Type something

问题 I'm trying to create a HTA application, that can open programs(exe, bat etc..) locally on the computer. This will be used on a Kiosk PC, where the users don't have access to the desktop etc. But have some problems, with finding a script that works.. Right now I'm using this script: <script type="text/javascript"> function runApp(which) { WshShell = new ActiveXObject("WScript.Shell"); WshShell.Run (which,1,true); } </script> And this is how my links looks: <a href="javascript:window.location

问题 I have a batch file which in turn calls VB Script. The task of the VBScript contains a macro whose job is to login into the Oracle db, run few queries, fetch the output in Excel sheet and then it performs other functions. The script is running fine in the scheduler when using the "Run only when user is logged in" option but it doesn't run when "Run whether user logged in or not" option is selected. I tried all the options suggested here in previous posts but none of them worked. 回答1: I

问题 I am currently making an userform in which I got multiple textboxes. So for now I got a total of 15 textboxes and each of them should only contain numerical values. The code I got now for each TextBox is: Private Sub TextBox1_Change() If TypeName(Me.ActiveControl) = "TextBox" Then With Me.ActiveControl If Not IsNumeric(.Value) And .Value <> vbNullString Then MsgBox "Sorry, only numbers allowed" .Value = vbNullString End If End With End If End Sub Private Sub TextBox2_Change() If TypeName(Me

问题 I am currently making an userform in which I got multiple textboxes. So for now I got a total of 15 textboxes and each of them should only contain numerical values. The code I got now for each TextBox is: Private Sub TextBox1_Change() If TypeName(Me.ActiveControl) = "TextBox" Then With Me.ActiveControl If Not IsNumeric(.Value) And .Value <> vbNullString Then MsgBox "Sorry, only numbers allowed" .Value = vbNullString End If End With End If End Sub Private Sub TextBox2_Change() If TypeName(Me

问题 I am currently making an userform in which I got multiple textboxes. So for now I got a total of 15 textboxes and each of them should only contain numerical values. The code I got now for each TextBox is: Private Sub TextBox1_Change() If TypeName(Me.ActiveControl) = "TextBox" Then With Me.ActiveControl If Not IsNumeric(.Value) And .Value <> vbNullString Then MsgBox "Sorry, only numbers allowed" .Value = vbNullString End If End With End If End Sub Private Sub TextBox2_Change() If TypeName(Me

问题 I am currently making an userform in which I got multiple textboxes. So for now I got a total of 15 textboxes and each of them should only contain numerical values. The code I got now for each TextBox is: Private Sub TextBox1_Change() If TypeName(Me.ActiveControl) = "TextBox" Then With Me.ActiveControl If Not IsNumeric(.Value) And .Value <> vbNullString Then MsgBox "Sorry, only numbers allowed" .Value = vbNullString End If End With End If End Sub Private Sub TextBox2_Change() If TypeName(Me

问题 I am currently making an userform in which I got multiple textboxes. So for now I got a total of 15 textboxes and each of them should only contain numerical values. The code I got now for each TextBox is: Private Sub TextBox1_Change() If TypeName(Me.ActiveControl) = "TextBox" Then With Me.ActiveControl If Not IsNumeric(.Value) And .Value <> vbNullString Then MsgBox "Sorry, only numbers allowed" .Value = vbNullString End If End With End If End Sub Private Sub TextBox2_Change() If TypeName(Me

问题 If system locks every 5 minutes, what VB Scripting method is used to avoid system locking every 5 minutes? 回答1: Save this file in the format of .vbs Change the Sleep Time 400 based on your requirement. Set wshShell =wscript.CreateObject("WScript.Shell") do wscript.sleep 400 wshshell.sendkeys "{SCROLLLOCK}" wscript.sleep 400 loop 回答2: Perhaps, WScript.SendKeys could help: msdn Something like double-ScrollLock, I guess? PS. You'll need to put that in a loop with a sleep, of course. 回答3: The