随笔分类 -  VB6

vbscript调用WebService
摘要：'获取已初始化Soap对象Public Function GetSoapClient(sURL) Dim oSoap Set oSoap = CreateObject("MSSOAP.SoapClient") oSoap.mssoapinit sURL Set GetSoapClient = oSoapEnd Function'用户绑定对应序列号sub BindCodeNumber() Dim... 阅读全文
posted @ 2009-11-09 18:55 绿色心情 阅读(320) 评论(0) 推荐(0)
VBScript读取XML信息
摘要：xml文件为<?xml version="1.0" encoding="utf-8" ?><TotalNE ResultFolderPath=""> <NE Name="BOCO"> <IP>10.10.10.29</IP> <Port>23</Port> <LoginName>ncomc</Lo... 阅读全文
posted @ 2009-10-12 17:53 绿色心情 阅读(1004) 评论(0) 推荐(0)
VB6控制粘贴
摘要：Private IsCtrlV As Boolean Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyV And Shift = 2 Then IsCtrlV = True Else IsCtrlV = False End If En... 阅读全文
posted @ 2009-02-12 11:47 绿色心情 阅读(355) 评论(0) 推荐(0)
vb6屏蔽鼠标右键菜单
摘要：'模板------------------ Option Explicit Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long... 阅读全文
posted @ 2009-01-04 14:09 绿色心情 阅读(573) 评论(0) 推荐(0)