javascript u visual basic-u

[ zeljko88 @ 16.04.2010. 13:39 ] @

pozzz

Kako bih mogao da javascript kod napisem u Visual Basic-u ili da pozovem vec napravljeni javascript

radi se o ovom javascriptu
--------------------------------------------

$(document).ready(function() {

$.getJSON('http://api.wipmania.com/jsonp?callback=?', '', function(json) {
$('select#country option[value=' + json.address.country_code + ']').attr('selected', 'selected');
var D = json.address.country_code;
});
});

-----------------------------------------------

i kako da koristim promenljivu D u visual basic-u

hvala unapred

[ t.marko016 @ 16.04.2010. 14:21 ] @

Daj budi malo precizniji sta zelis da uradis konkretno, posto mi ovde slabo koristimo javu, bar se meni tako cini.

[ zeljko88 @ 16.04.2010. 15:10 ] @

Pa ovaj kod sto sam postavio treba da uzme IP adresu korisnika koji pristupa sajtu i posalje je na "http://api.wipmania.com/" , onda se sa tog sajta vrati naziv drzave iz koje korisnik pristupa tacnije vrate se samo dva slova npr za srbiju "RS". E sad meni treba taj podatak.

To sve radi na obicnoj html strani a meni treba da to ubacim u aspx stranu tj u visual basic u GLOBAL.ASAX jer je ceo sajt radjen u njemu!

Problem je sto ja ne znam da li je moguce taj kod napisati u VB ili da li je moguce samo pozvati taj java script (redirect.js - tako sam ga nazvao)

poz

[ Shadowed @ 16.04.2010. 16:34 ] @

To sto pitas je kao da pitas kako da pisem engleski na nemackom.
Moras napisati VB kod koji radi slicnu stvar. Nadji primer koda za download fajla (najbolje neki sa request/response) i skini taj fajl u string. Potrazi posle kako se radi json (de)serijalizacija ili rucno parsiraj.
Inace, ako je .aspx to je asp.net pa cu tamo prebaciti temu.

[ pl4stik @ 18.04.2010. 20:09 ] @

Ovo bi trebalo da ti vrati to sto hoces, ti samo treba da utvrdish ip adresu ja sam je ukucao

Code:

   Dim ipAddress As String = "91.150.118.209"
   Dim wipmaniaURL As New Uri("http://api.wipmania.com/" & ipAddress & "?google.com")
   Dim request As HttpWebRequest = DirectCast(HttpWebRequest.Create(wipmaniaURL), HttpWebRequest)
   request.Method = WebRequestMethods.Http.[Get]
   Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
   Dim reader As New StreamReader(response.GetResponseStream())
   Dim tmp As String = reader.ReadToEnd()
   response.Close()
   reader.Close()
   Response.Write(tmp)

Dobra stvarcica ...

[ zeljko88 @ 20.04.2010. 08:38 ] @

E super ovaj kod radi samo da ubacim ocitavanje ip adrese korisnika

Havala vam puno

pozdrav

[ zeljko88 @ 20.04.2010. 10:54 ] @

Uspeo sam da zavrsim ceo kod dodao sam samo jos kod koji cita ip adresu korisnika

Dim myWebClient As New System.Net.WebClient()
Dim myStream = myWebClient.OpenRead("http://www.whatismyip.com/automation/n09230945.asp")
Dim myStreamReader As New System.IO.StreamReader(myStream)
Dim myIP As String = myStreamReader.ReadToEnd()

jos jednom hvala

pozz