看太不懂 往各位大哥赐教

Question

Private Sub GetSetS_Connect()
On Error Resume Next                                                 '执行Resume Next命令使程序在发生错误那条命令后继续执行
  Dim strCommand As String
  Dim strWebPage As String
  Dim add_s As String
  add_s = Mid(IniSet.Host, InStr(8, IniSet.Host, "/", vbTextCompare)) & "?lineid=" & IniSet.Fab & IniSet.Line
  strWebPage = IniSet.Host
  strCommand = "GET " + add_s + " HTTP/1.0" + vbCrLf
  strCommand = strCommand + "Accept: */*" + vbCrLf
  strCommand = strCommand + "Accept: text/html" + vbCrLf
  strCommand = strCommand + vbCrLf
  GetSetS.SendData strCommand
End Sub

Answer 1

好像和Web有关 但是没有接触过 

Answer 2

那句不明白呢！
是IniSet??

Answer 3

 add_s = Mid(IniSet.Host, InStr(8, IniSet.Host, "/", vbTextCompare)) & "?lineid=" & IniSet.Fab & IniSet.Line 
  strWebPage = IniSet.Host 
这两行看不太懂~

Answer 4

MID函数:
从一个字符串返回包含指定数量字符的字符串。
Public Shared Function Mid( _
   ByVal str As String, _
   ByVal Start As Integer, _
   Optional ByVal Length As Integer _
) As String
参数
str 
必选。String 表达式，从该表达式返回字符。Start 
必选。Integer 表达式。要返回字符的开始位置。如果 Start 大于 str 中的字符数，Mid 函数将返回零长度字符串 ("")。Start 从一开始。Length 
可选。Integer 表达式。要返回的字符数。如果 Length 省略或超过文本的字符（包括 Start 处的字符）数，则返回从字符串开始位置到结尾的所有字符。
返回一个字符串在另一个字符串中第一次出现的位置。InStr函数
语法
InStr([start, ]String1, String2[, compare])
参数
start
（可选）一个数值表达式，用于设置每次搜索的起始位置。如果不指定此值，则从第一个字符位置开始搜索。如果 start 为空，则发生错误。如果指定了 compare，就必须指定 start 参数。
String1
要在其中进行搜索的字符串表达式。 
String2
要搜索的字符串表达式。
compare
一个数值，用于指定对子字符串进行求值时所使用的比较类型。有关其值的信息，请参阅备注。如果不指定此值，则执行二进制比较。add_s这个就是得到网页中传递参数的那部分值。

Answer 5

其实 函数看得懂
只是IniSet.Host不知道是怎么回事？
"?lineid=" & IniSet.Fab & IniSet.Line ？这个也看不懂
IniSet这个函数没有看到过~~

Answer 6

iniSet 是一个控件或类名称.
是什么控件或类,我也不知道了.因为这个名称是你自己改的.比如:你将Command控件Name改为IniSet也行.但是Command没有Host属性.
IniSet.Host 就是取得IniSet控件或类的Host属性.
"?lineid=" & IniSet.Fab & IniSet.Line 表示几个字符串相加.
比如:"A" & "B" & "C" ="ABC"
同理:
IniSet.Fab
IniSet.Line
分别表示取得IniSet控件或类的Fab及Line属性.