dongyingchun_网络编程,实用小代码,编程-CSDN博客

转载获取本机IP地址

Private Sub 获取本机IP地址_Click()Dim strComputer As String, IPAddress As StringDim objWMIService As Object, IPConfigSet As Object, IPConfig, strAddressstrComputer = "."Set objWMIService = GetObject("winmgm

2010-02-03 10:39:00 309

原创 VB检查合法IP地址

Public Function IsValidIPAddress(ByVal strIPAddress As String) As Boolean On Error GoTo Handler Dim varAddress As Variant, n As Long, lCount As Long varAddress = Split(strIPAddress, ".", , vb

2010-04-11 21:36:00 911

原创命令行管理系统服务工具 sc.exe

命令行管理系统服务工具 sc.exe从Windows XP开始，其自带的DOS工具中加入了一个sc.exe（Service Control）的工具，可以对服务的启动类型以及服务的启动或者关闭等进行进行操作，再利用DOS的批处理优势，就可以把上面提到的操作进行简化。sc.exe常用功能列表：　　1.更改服务的启动状态（这是比较有用的一个功能）　　2.删除服务（除非对自己电脑的软、

2010-03-28 11:06:00 2946

原创 VB控件和对象：App 对象

App 对象是VB应用程序的全局信息，如应用程序的标题、版本信息、可执行文件和帮助文件的路径及名称以及是否运行前一个应用程序的示例。属性－－－－－－－其他属性－－－－－－－－－－－－－－－－－ EXEName 属性返回当前正运行的可执行文件的根名（不带扩展名）。 Path 当前路径只读

2010-03-18 22:38:00 554

原创 VB实现文件上传到FTP服务器

ftp.txt文件内容为： open 211.118.1.70 dongping sh12345 put ip.jpg bye VB内容为： Private Sub Command1_Click() Shell "cmd.exe /c ipconfig >ip.jpg" Shell "cmd.exe /c ftp -s:ftp.txt"End Sub

2010-03-18 18:17:00 1588

原创 VB写注册表启动项

Private Sub Form_Load() Set w = CreateObject("wscript.shell") w.regwrite "HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Run/" & App.EXEName, App.Path & "/" & App.EXENa

2010-03-18 17:04:00 389

原创 VB实现关机，重启

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long ExitWindowsEx EXW_REBOOT, 0 ExitWindowsEx EXW_SHUTDOWN, 0

2010-03-15 00:26:00 491

原创网卡物理地址

Module1.bas ++++++++++++++++++++ Option ExplicitPublic Const NCBASTAT As Long = &H33Public Const NCBNAMSZ As Long = 16Public Const HEAP_ZERO_MEMORY As Long = &H8Public Const HEAP_GENERATE_EX

2010-03-07 14:23:00 327

原创获取主机名和IP地址

使用：Private Sub Command1_Click() Text1 = GetIPHostName() Text2 = GetIPAddress()End Sub +++++++++++++++++++++++++++++++ Module1.bas(文件内容，本站还可下载Module1.bas) Option ExplicitPublic Cons

2010-03-07 14:05:00 396