Set objFFTester = New FFTester.Tester lRetVal = objFFTester.GetUnitInfo("<GetUnitInfo xmlns=""urn:GetUnitInfo-schema"" SerialNumber=""" & UCase(Text1.Text) & """ />", strXML) Text2.Text = "GetUnitInfo:" + CStr(lRetVal) If lRetVal = 0 Then Command2.Enabled = True Command3.Enabled = True Else retError = objFFTester.GetErrMessage(lRetVal) Text2.Text = Text2.Text + vbCrLf + retError End If
举报
本版积分规则 发表回复 回帖后跳转到最后一页
|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度
GMT+8, 2024-11-16 15:26 , Processed in 0.079940 second(s), 23 queries .
Powered by Discuz! X3.5 Licensed
© 2001-2024 Discuz! Team.