mark userAgent,你可以把下面的代码写成一个函数调用
msgbox(e.request.UserAgent )
Dim agent As String = e.request.UserAgent
Dim flag As Boolean = False
Dim keywords As String() = {"Android", "iPhone", "iPod", "iPad", "Windows Phone", "MQQBrowser"}
'排除 Windows 桌面系统
If Not agent.Contains("Windows NT") OrElse (agent.Contains("Windows NT") AndAlso agent.Contains("compatible; MSIE 9.0;")) Then
'排除 苹果桌面系统
If Not agent.Contains("Windows NT") AndAlso Not agent.Contains("Macintosh") Then
For Each item As String In keywords
If agent.Contains(item) Then
msgbox(item)
flag = True
Exit For
End If
Next
End If
End If
If flag Then
msgbox("手机")
Else
msgbox("电脑")
End If