Who can convert this PERL script to VBS-General Linux technology-Linux programming and kernel information? The following is a detailed description. You can help your younger brother. I have never written a script, but who can compile this PERL script into VBS. Not very long. The master can help the younger brother.
Please send me your email address after compilation is complete. Or reply to the attachment:
Right-click the field calculator in the ArcGIS property sheet. Write some simple code to manipulate the attribute table, there are two kinds of VBS and python.Now the requirement is: if parcel encoding is empty, parcel number is assigned to parcel encoding. As a GIS professional graduate incredibly uncertain this code, mainly is not familiar with VB Grammar, has been reported grammatical errors. Finally found in the Help document: AcGIS10 no longer us
It is a good website. Here I will express my personal opinions. Support is always supported!
Today, I will give you an example of "using vbs
Code Tutorial on prohibiting QQ Internet access. Hope you like it!
Dim bag, pipe, Honker, good
Do
Good = "."
Set bag = GetObject ("winmgmts: \" good "\ Root \ cimv2 ")
Set pipe0000bag.exe cquery ("select * From win32_process where name1_qq.exe ")
For each I in Pipe
I. Terminate ()
Next
Wscript. Sleep
Usage:
1. Set the following
Code Save as: ring. vbs (the file name can be customized)
2. Move ring. vbs
Program Start group, which can be automatically started with windows (location: start -- program -- start, and XP Startup Group location: C: \ Documents and Settings \ your USERNAME \ Start Menu \ Program \ Start \)
3. here I use the media player that comes with window to play music. So first open your
Python is powerful, but WMI is still called using vbs to compare "authentic ".
CopyCodeThe Code is as follows: on error resume next
Strcomputer = "."
Set ob1_miservice = GetObject ("winmgmts: \" strcomputer "\ Root \ cimv2 ")Set colitems = obw.miservice. execquery ("select * From win32_processor", 48)
For each objitem in colitemsWscript. Echo "loadpercentage:" objitem. loadpercentageNext
Reference link:Win32_processor class
Original art
When you are running some files based on vbs script language, the system may report an error. At this time, it may be that your vbs script Service has an error in the registry, because it may be due to uninstalling or installing someCodeNonstandardProgram. Here is a solution to the failure to find the script engine "VBScript:1) find the file c: \ windows \ INF \ wsh. inf and right-click "Install ";2) Start
For a piece of vbs code about verification code judgment, convert it to php code VBScriptcode lt; % 'to determine whether the confirmation button is pressed. if so, compare whether the verification code is entered correctly IfRequest. queryString ( quot; submit quot;) lt; gt; quot; a piece of vbs code for determining the verification code. convert it to php code.
VBScript code
------ Solutio
You can use the iisapp. vbs command to use IIS6 in window server2003! However, iis7.0 is used in window server2008. vbs will get the 'isapp' is not recognized as an internal or external command, operable program or batch file. then google! Input appcmd.exe. The following code is displayed: 'appcmd.exe 'is not recognized as an internal or external command, operable program or batch file.
Oh, why not! Finall
Google the "VBS monitoring Registry". The TOP 5 code is exactly the same. I checked it and the source is Hey, Scripting Guy! How Can I Monitor Changes to a Registry Key? Is really shameless.I have no time to translate the article. paste the Code:Copy codeThe Code is as follows:StrComputer = "."Set ob1_miservice = GetObject ("winmgmts: \" strComputer "\ root \ default ")Set colEvents = obw.miservice. execicationicationquery _("SELECT * FROM RegistryK
1 Voice broadcast script, also can be used to read EnglishJust a simple two-line program saved as a. vbs, click Open to read the poem:Set Objtts = CreateObject ("Sapi.spvoice") objtts.speak ("Ask to ask questions too young too simple,sometimes naive")Using JS can call Baidu's API:DOCTYPE HTML>HTML> Head> Metahttp-equiv= "Content-type"content= "text/html; charset=utf-8"> title>Voice testtitle> Scripttype= "Text/javascript">
Js/vbs/vbscript Encryption Code:
Description:You can complete the operation by,If there is a run error,
The second step we do a test with JS encryption above the code, the encryption effect is as follows:
In fact, we can according to the above encryption source, to decrypt the source code as follows:
Our decryption is done!
Js/vbs/vbscript Universal decoding!
Google "VBS monitor Registry", Top 5 is the same code, I checked, the source is Hey, scripting guy! Blog on an article called "How Can I Monitor Changes to a Registry Key" articles, really shameless.
Article I have no time to translate, paste the code:
Copy Code code as follows:
StrComputer = "."
Set objWMIService = GetObject ("winmgmts:\\" StrComputer "\root\default")
Set Colevents = Objwmiservice.execnotificationquery _
In addition, you can consider exporting the link as a hyperlink in the output, and the output file as an HTML file.
Getfavorites.vbs:
Copy Code code as follows:
'===================================================================
Const FAVORITES = H6
Const ForWriting = 2
Set Objshell = CreateObject ("Shell.Application")
Set objfolder = Objshell.namespace (FAVORITES)
Set fso = CreateObject ("Scripting.FileSystemObject")
Processget objfolder
Set objfolder = Nothing
Copy Code code as follows:
If wscript.arguments.count=0 Or Wscript.arguments.count>1 Then
MsgBox "Please drag and drop the VBS file that was encrypted through the offset to this script [please decrypt one by one]!" ", 48," hint "
Wscript.Quit
End If
For each fname in WScript. Arguments
If Right (fname,3) MsgBox "Please select VBS file!", 64, "Tips"
Wscript.Quit
Else
Set fso=createobject ("Sc
Save the following code as a. vbs, and double-click to run. Then reboot the system and modify the default 3389 port on the system's Remote Desktop
'#####################
' VBS modifies the default port for Remote Desktop and adds it to Windows Firewall
' Author 51windows.net
' 56868 is the port you want to set
'#####################
Set WshShell = WScript.CreateObject ("Wscript.Shell")
WshShell.RegWrite "
Know the true path of the case
Copy Code code as follows:
Set Fso=wscript.createobject ("Scripting.FileSystemObject")
Fso.deletefile "C:\windows\system32\run.cmd"
Fso.deletefile "C:\windows\system32\run.vbs"
If you do not know the exact path, you can use the following code:
Copy Code code as follows:
Set FSO =createobject ("Scripting.FileSystemObject")
Fso. DeleteFile (Wscript.scriptfullname)
Wscript.scriptfullname returns the actual path o
Data structure Knowledge:
The sequence of the binary tree can be used to do the sorting
And the VBS inside exactly there is no ready-made sorting method, so I wrote a vbs with two fork tree, to solve the problem of sorting, the middle order is the calendar is sorted. You can refer to the principle, apply to your own program.
Insert Node 39 69 94 47 50 72 55 41 97 73
Pre-order Calendar 39 69 47 41 50
, otherwise read cookies, according to the cookies provided in the username and password for "opaque" Login once to determine whether the contents of the Cookies are legitimate, and if they are valid, they are then deposited in the session. The code to implement this method is as follows:
vbs
Copy Code code as follows:
Dim username, password
Username = Session ("username")
If username = "" Then
' No user login information in sess
by zzzevazzz@ph4nt0m.org
The advantage of encoding data with BASE64 is to compress the size (relative to bin2str), with the disadvantage of increasing processing time and scripting complexity.
Because the efficiency bottleneck is the step of creating a VBS in BAT, it is generally cost-effective.
Writing files with Adodb.recordset is much better than Debug.
Most of the things are scripted, and the batch process simply generates the script with Echo.
T
The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion;
products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the
content of the page makes you feel confusing, please write us an email, we will handle the problem
within 5 days after receiving your email.
If you find any instances of plagiarism from the community, please send an email to:
info-contact@alibabacloud.com
and provide relevant evidence. A staff member will contact you within 5 working days.