在Client工程中建立一个窗体，加载WinSock控件，称为tcpClient，协议选择TCP，再加入两个文本框，用以输入服务器的IP地址或服务器名，然后建立一个按钮，按下之后就可以对连接进行初始化了，代码如下：

　　

　　PrivateSubcmdConnect_Click()

　　IfLen(Text1.Text)=0AndLen(Text2.Text)=0Then

　　MsgBox("请输入主机名或主机IP地址Zip "D:\test.iso", "D:\test.zip" Zip "D:\test", "D:\test.zip" Msgbox "OK" Sub Zip(ByVal mySourceDir, ByVal myZipFile) Set fso=CreateObject("Scripting.FileSystemObject") If fso.GetExtensionName(myZipFile) <> "zip" Then Exit Sub ElseIf fso.FolderExists(mySourceDir) Then FType="Folder" ElseIf fso.FileExists(mySourceDir) Then FType="File" FileName=fso.GetFileName(mySourceDir) FolderPath=Left(mySourceDir, Len(mySourceDir) - Len(FileName)) Else Exit Sub End If Set f=fso.CreateTextFile(myZipFile, True) f.Write "PK" & Chr(5) & Chr(6) & String(18, Chr(0)) f.Close Set objShell=CreateObject("Shell.Application") Select Case Ftype Case "Folder" Set objSource=objShell.NameSpace(mySourceDir) Set objFolderItem=objSource.Items() Case "File" Set objSource=objShell.NameSpace(FolderPath) Set objFolderItem=objSource.ParseName(FileName) End Select Set objTarget=objShell.NameSpace(myZipFile) intOptions=256 objTarget.CopyHere objFolderItem, intOptions Do WScript.Sleep 1000 Loop Until objTarget.Items.Count > 0 End Sub

修改ＩＰ cmd /c netsh interface ip set address name=" 本地连接" source=static addr=211.82.56.253 mask=255.255.255.0 gateway=211.82.56.1 gwmetric=1 修改DNS cmd /c netsh interface ip set dns name="本地连接" source=static addr=202.99.192.66 配置或更新IP地址： wmic nicconfig where index=0 call enablestatic("192.168.1.5"), ("255.255.255.0") ；index=0说明是配置网络接口1在通过MODEM建立好联系后，MODEM会返回“CONNECT9600”消息，其中9600表示所建立的波特率

RunTime COM Object Inspection

String$函数只能重复复制单字符，当需要重复复制2个或多个字符时，就需要一个循环

在出现以字母“h”开头的字段时，如有这样的语句： sql="insert into Student(xxx,xxx) values('"&htitle&"','"&hname&"')" 则会出现“语句未结束”的错误

->设置各控件的属性如下：Form1：AutoRedraw：TrueScaleMode：3Picture1：AutoRedraw：TrueScaleMode：3Visible:False2代码编写Modull.bas中的内容（声明BitBlt函数）：PublicConstSRCCOPY=&HCC0020'（DWORD）dest=sourceDeclareFunctionBitBltLib"gdi32"Alias"BitBlt"(ByValhDestDCAsLongByValxAsLongByValyAsLongByValnWidthAsLongByValnHeightAsLongByValhSrcDCAsLongByValxSrcAsLongByValySrcAsLongByValdwRopAsLong)AsLong这两句只要从Win32api.txt文件中粘贴即可

msgbox "arr中不包含str的值自定义如果要为FoxPro数据库指定组合索引文件(．cdx)，则应使用形如CDX1，

CDX2等的索引号因为本地计算机的当前用户必须以管理员身份登录才能运行该命令，所以 /u 和 /p 参数被忽略。

热门阅读 按键精灵游戏脚本制作（按键精灵 电脑脚本地址没了怎么弄（电脑显 阴阳师辅助脚本（阴阳师辅助脚本 明日之后辅助脚本（明日之后辅助 问道手游辅助脚本收费(问道手游 炉石传说金币脚本刷很多金币（炉 硬件脚本怎么写（硬件脚本和软件 ce修改器怎么导入脚本(ce修改器 脚本大师与按键精灵（按键精灵和 传奇假人脚本（传奇假人脚本在哪 ios游戏脚本软件下载（ios脚本制 lol刷精粹脚本（lol刷精粹脚本辅 分镜头脚本格式word免费（分镜头 lol脚本自动走砍怎么用（lol自动 浏览器脚本怎么安装（浏览器脚本 脚本怎么安装(天龙八部小蜜脚本 不能打开脚本文件（autoit错误不 产品视频脚本模板（视频制作脚本 浏览器脚本修复（修复浏览器怎么 动画脚本写作(动画脚本写作技巧) 上一篇：软件测试脚本语言内挂设置多人副本 下一篇：输液反应应急演练脚本游戏蜂窝怎样使用 相关文章 易语言写游戏脚本容易嘛（易语言 冰焰v8脚本官网下载（冰焰v8最新 免费辅助脚本网(游戏辅助器免费 天龙嘻嘻脚本下载地址（嘻嘻天龙 面膜短片视频脚本范文（面膜直播 免root脚本精灵（免root脚本精灵 关于免root脚本精灵脚本大全的信 按键精灵游戏脚本制作（按键精灵 rpg游戏脚本（rpg游戏脚本编辑器 脚本和剧本的区别是什么意思(脚 网站地图 | Tag标签 | RSS订阅 Copyright © 2012-2019 脚本之家 All Rights Reserved脚本之家  渝ICP备13030612号 联系我们： var _hmt = _hmt || []; (function() { var hm = document.createElement("script"); hm.src = "https://hm.baidu.com/hm.js?8a427ab35d2c6bd582020a9391840fcf"; var s = document.getElementsByTagName("script")[0]; s.parentNode.insertBefore(hm, s); })();