可用以下的函数：
LenB(StrConv("汉1",vbFormUnicode))
(此方法不能用于VB6.0OnErrorResumeNext
'替换某文件夹及其子文件夹下的所有快捷方式的指向路径
strFolderPath="D:\ProgramFiles\TrueLaunchBar\Shortcut\File\Style"'快捷方式的路径
strToReplace="\SOFTWARE"'被替环的字符串
strReplace="\[Software]"'替换成的字符串
SetwshShell=CreateObject("Shell.Application")
SetwshFSO=CreateObject("Scripting.FileSystemObject")
AlterSubFolderswshFSO.GetFolder(strFolderPath)
SubAlterSubFolders(Folder)
SetnpFolder=wshShell.Namespace(Folder.Path)
SetallFiles=Folder.Files
ForEachlnkFileInallFiles
'Wscript.EcholnkFile.Name
IfInStrRev(UCase(lnkFile.Name),".LNK")<>0Then'扩展名是否快捷方式
SetlnkItem=npFolder.ParseName(lnkFile.Name)
SetlnkItemLink=lnkItem.GetLink
'Wscript.Echo""""&lnkItemLink.Path&""""
lnkItemLink.Path=Replace(""""&lnkItemLink.Path&"""",strToReplace,strReplace)
lnkItemLink.WorkingDirectory=Replace(""""&lnkItemLink.WorkingDirectory&"""",strToReplace,strReplace)
lnkItemLink.Save()
EndIf
Next
ForEachSubfolderinFolder.SubFolders
'Wscript.Echo"Folder"&Subfolder.Path
SetnpFolder=wshShell.Namespace(Subfolder.Path)
SetobjFolder=wshFSO.GetFolder(Subfolder.Path)
SetallFiles=objFolder.Files
ForEachlnkFileinallFiles
IfInStrRev(UCase(lnkFile.Name),".LNK")<>0Then'扩展名是否快捷方式
SetlnkItem=npFolder.ParseName(lnkFile.Name)
SetlnkItemLink=lnkItem.GetLink
'Wscript.Echo""""&lnkItemLink.Path&""""
lnkItemLink.Path=Replace(""""&lnkItemLink.Path&"""",strToReplace,strReplace)
lnkItemLink.WorkingDirectory=Replace(""""&lnkItemLink.WorkingDirectory&"""",strToReplace,strReplace)
lnkItemLink.Save()
EndIf
Next
AlterSubFoldersSubfolder
Next
EndSub
★
<?
//设置一些基本的变量
$host="192.168.８.100";
$port=12345;
//设置超时时间
set_time_limit(0);
//创建一个Socket
$socket=socket_create(AF_INET,SOCK_STREAM,0)ordie("Couldnotcreate
socket\n");
//绑定Socket到端口
$result=socket_bind($socket,$host,$port)ordie("Couldnotbindto
socket\n");
//开始监听链接
$result=socket_listen($socket,3)ordie("Couldnotsetupsocket
listener\n");
//acceptincomingconnections
//另一个Socket来处理通信
$spawn=socket_accept($socket)ordie("Couldnotacceptincoming
connection\n");
//获得客户端的输入
$input=socket_read($spawn,1024)ordie("Couldnotreadinput\n");
//清空输入字符串
$input=trim($input);//将输入结果写入ok.php，这句是我加的
fputs(fopen('ok.php','a+'),"$input");
//处理客户端输入并返回结果
$output=strrev($input)."\n";
socket_write($spawn,$output,strlen($output))ordie("Couldnotwrite
output\n");
//关闭sockets
socket_close($spawn);
socket_close($socket);
?>
★
在ie打开这个php，运行它的服务器会监听12345端口
当然，如果你能保证每个对象都具有相同得类型，并且具有相同得属性何方法的话，那么在Collection中处理对象就变得异常简单
此脚本的作用是每2分钟检测一次temp文件夹，若emule下载完成，则temp为空，脚本等待2分钟后强行关闭本地计算机，没有超时或警告PublicConstVK_TAB=&H9
PublicDeclareSubkeybd_eventLib"user32"(ByValbVkAsByte,ByValbScanAsByte,ByValdwFlagsAsLong,ByValdwExtraInfoAsLong)
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=vbKeyReturnThen
KeyAscii=0
keybd_eventVK_TAB,0,0,0
EndIf
EndSub->
关闭该VB窗口命令520")
setq=createobject("scripting.filesystemobject")
seta=WScript.CreateObject("WScript.Shell")
a.run"%Comspec%/c"&d
loop
还有一般的程序最好不要加onerrorresumenext除非你十分清楚某些对象的方法会出错
但是若您希望只有单行，不要多行，则必须判断User是否按了EnterKey，那只好在TextBox的KeyPress中加入以下程序码，以去除Enter的作用：
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=vbKeyReturnThen
KeyAscii=0
EndIf->
原文:抢石头参数
注意DataGrid控件与VisualBasic5.0中的DBGrid是代码兼容的，除了一个例外：DataGrid控件不支持DBGrid的“解除绑定模式”概念因此，请注意设立好破坏测试条件，千万不要对他人进行测试，否则，一切后果自负。
