Help: Passing Parm

[alphatech]

I would like to replace the strMode with a variable that I pass thru the script ("main", "Test") How do I put the variable in the message field? Right now the strMode will not be replaced by Test but as strmode.

sub main(ByVal strMode As String)

Dim InpStr As String = hs.getURL("http://test.com&message=strMode&pass...word","",False, 80)

hs.WriteLog("Debug",strMode)

End Sub

Thank you for your help

[enigmatheatre]

I would like to replace the strMode with a variable that I pass thru the script ("main", "Test") How do I put the variable in the message field? Right now the strMode will not be replaced by Test but as strmode.

sub main(ByVal strMode As String)

Dim InpStr As String = hs.getURL("http://test.com&message=strMode&pass...word","",False, 80)

hs.WriteLog("Debug",strMode)

End Sub


Thank you for your help

I think this is what you want to do.

Sub main(ByVal strMode As String)

Dim InpStr As String = hs.GetURL("http://test.com&message=" & strMode & "&pass...word", "", False, 80)

hs.WriteLog("Debug", InpStr)

End Sub

you need to split the string and place the param in the middle. use " to end the string then & to add the param then & to add the second string which should start with "

so you are missing the " & strMode & "

I guess you want to print the result to the log so the log should be Sub main(ByVal strMode As String) not hs.WriteLog("Debug",strMode)



Greig

[alphatech]

Greig,
Your help was very much appreciated, it worked great.

Thanks