svnno****@sourc*****
svnno****@sourc*****
2011年 8月 31日 (水) 05:12:27 JST
Revision: 1570
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1570
Author: syo68k
Date: 2011-08-31 05:12:27 +0900 (Wed, 31 Aug 2011)
Log Message:
-----------
Warningが出ないように変更
Modified Paths:
--------------
trunk/Tween/Google.vb
-------------- next part --------------
Modified: trunk/Tween/Google.vb
===================================================================
--- trunk/Tween/Google.vb 2011-08-30 11:43:12 UTC (rev 1569)
+++ trunk/Tween/Google.vb 2011-08-30 20:12:27 UTC (rev 1570)
@@ -350,8 +350,8 @@
Private Sub SendRequest(ByVal info As Dictionary(Of String, String), ByVal userId As Long)
#If UA <> "True" Then
- exit sub
-#End If
+ Exit Sub
+#Else
If userId = 0 Then Exit Sub
If Me._SessionFirst = 0 Then Me.Init()
@@ -413,6 +413,8 @@
End If
Me.GetAsync(params, New Uri(GA_GIF_URL))
+
+#End If
End Sub
Private Sub GetAsync(ByVal params As Dictionary(Of String, String), ByVal url As Uri)