获取当前IP的接口
https://api.ipify.org/
https://api.ipify.org/?format=json
https://api.ipify.org/?format=jsonp&callback=?
https://api.ipify.org/
https://api.ipify.org/?format=json
https://api.ipify.org/?format=jsonp&callback=?
'******************* .Bas 模块里面的代码Option ExplicitPublic Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long, ByVal fsMod...
VB 复制文件或文件夹到系统剪贴板'-----------------------------------------------------------模块内容Option ExplicitPrivate Type POINTAPI x As Long y As LongEnd Typ...
Private Sub Command1_Click()Text2.Text = Now()End SubPrivate Sub Command2_Click()MsgBox DateDiff("s", Text1.Text, Text2.Text)End SubPrivate Sub Form_L...
VB程序开发发布升级 1、代码开发 2、皮肤模块(1) 调用SkinH_VB6.dll加载皮肤; 3、验证模块(1) 添加验证模块 4、升级模块(1) 启动时生成版本代码;(2) 将update.exe复制到软件目录下(3) 用远程软件更新管理器将软件的版本信息上传到服务器 5、安装包模块(1) 使...
Private Sub SaveText_Click()Dim i As LongCommonDialog1.CancelError = TrueOn Error GoTo ErrHandlerCommonDialog1.Filter = "文档文件(*.txt)|*.txt|所有文件(*...
'窗体 Private WithEvents Cdf As Cls_DownLoad Private Sub Form_Load() Set Cdf = New Cls_DownLoad End Sub Private Sub Cdf_entDLFileDowning(sRemot...