Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
Programme qui ne fonctionne plus...
Auteur Message
Répondre en citant
Message Programme qui ne fonctionne plus... 
Salut, j'aurais besoin d'aide pour refaire ce programme, c'est un programme qui permet de localiser une adresse ip sur une carte mais il ne fonctionne plus et je ne connait pas grand chose au HTML.

Code:
@echo off
set /p choix6="IP: "
call :make
setlocal enabledelayedexpansion
set "$var=1"
set "$Liste="
set "$StaticUrl=https://maps.googleapis.com/maps/api/staticmap?center=0,0&zoom=1&size=500x300&maptype=satellite"
 
(
echo ^<!DOCTYPE html^>
echo ^<html^>
echo  ^<head^>
echo    ^<meta name="viewport" content="initial-scale=1.0, user-scalable=no"^>
echo    ^<meta charset="utf-8"^>
echo    ^<title^>Votre Localisation^</title>
echo     ^<style^>
echo      html, body, #map-canvas {
echo        height: 100%%;
echo        margin: 0px;
echo        padding: 0px
echo      }
echo    ^</style>
echo    ^<script src="https://maps.googleapis.com/maps/api/js?v=3.exp^&signed_in=true"^>^</script>
echo    ^<script^>
echo function initialize(^) {
echo  var myLatlng = new google.maps.LatLng(0,0^);
)>%temp%\carte.html
 
  set "$Nom=a"
  set "$Ip=%choix6%"
  for /f "tokens=6,7 delims=," %%a in ('cscript.exe %temp%\getcount.vbs [url=http://ip-api.com/json/%21$Ip%21%27%29]http://ip-api.com/json/!$Ip!')[/url] do (
    for /f "tokens=2 delims=:" %%i in ('echo %%a') do set $lat=%%i
    for /f "tokens=2 delims=:" %%i in ('echo %%b') do set $lon=%%i
    echo  var myLatlng!$var! = new google.maps.LatLng(!$Lat!,!$Lon!^);>>%temp%\carte.html
    set $StaticUrl=!$StaticUrl!^&markers=color:blue%%7Clabel:S%%7C!$Lat!,!$Lon!
    set /a $var+=1
    set $Liste=!$Liste! !$nom!
  )
)
 
(echo  var mapOptions = {
 echo    zoom: 2,
 echo    center: myLatlng
 echo  }
 echo  var map = new google.maps.Map(document.getElementById('map-canvas'^), mapOptions^);
)>>%temp%\carte.html
 
set /a $var-=1
 
for /l %%a in (1,1,!$var!) do (
  set $c=1
  for %%x in (!$liste!) do (
    if "!$c!"=="%%a" (
      (echo  var marker = new google.maps.Marker({
      echo      position: myLatlng%%a,
      echo      map: map,
      echo      title: '%%x'
      echo  }^);)>>%temp%\carte.html
     )
    set /a $c+=1
   )
)
 
(echo }
 echo google.maps.event.addDomListener(window, 'load', initialize^);
 echo    ^</script>
 echo  ^</head>
 echo  ^<body^>
 echo    ^
^

 echo  ^</body>
 echo ^</html>
)>>%temp%\carte.html
start %temp%\carte.html
start !$StaticUrl!
del %temp%\GetCount.vbs >nul
cls & goto 0
:make
If not exist %temp%\Getcount.vbs ((
echo Dim o
echo Var1=Wscript.Arguments(0^)
echo Set o = CreateObject("MSXML2.XMLHTTP"^)
echo o.open "GET", var1, False
echo o.send
echo wscript.echo o.responseText
)>%temp%\GetCount.vbs
)
goto :eof





______________________________________________________
#~Ma chaine Youtube~#
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message Programme qui ne fonctionne plus... 
Salut Wink

Il manque des ^ sur plusieurs lignes de ton code (j'ai repérer sur la 15,22,23, 66,67, 82 et 83)

Essaye de re-vérifié qu'il ne manque aucun ^ avant chaque parenthèses qui fait partit d'un "echo" où le flux est redirigé vers un fichier, dis moi après si ça fonctionne Okay

@ ++ Wink Okay




______________________________________________________
Coucou, tu veux voir mon Site Web ?? Mort de Rire
Visiter le site web du posteur Skype
Répondre en citant
Message Programme qui ne fonctionne plus... 
Xenoxis a écrit:
Salut Wink

Il manque des ^ sur plusieurs lignes de ton code (j'ai repérer sur la 15,22,23, 66,67, 82 et 83)

Essaye de re-vérifié qu'il ne manque aucun ^ avant chaque parenthèses qui fait partit d'un "echo" où le flux est redirigé vers un fichier, dis moi après si ça fonctionne Okay

@ ++ Wink Okay


Ils y sont, juste qu'en publiant le code ça la modifié.




______________________________________________________
#~Ma chaine Youtube~#
Répondre en citant
Message Programme qui ne fonctionne plus... 
Voilà le pastebin :

http://pastebin.com/WZsvcNia

Okay




______________________________________________________
AffPng.exe , StringBetween.exe , Hex2Png.exe
Répondre en citant
Message Programme qui ne fonctionne plus... 
sachadee a écrit:
Voilà le pastebin :

http://pastebin.com/WZsvcNia

Okay


Avant c'etait plus précis, et maintenant y'a certaines adresse ip qui ne fonctionne plus.




______________________________________________________
#~Ma chaine Youtube~#
Répondre en citant
Message Programme qui ne fonctionne plus... 
Il n'y a eu aucuns changement, ça vient des infos contenue dans la database de l'api qui ont été actualisé Wink
Et ne parle pas trop à l'exclamative on dirait que c'est des ordres ou des remarques agressives :/ Et ça ne donne pas trop envie d'aider Okay




______________________________________________________
Visiter le site web du posteur
Répondre en citant
Message Programme qui ne fonctionne plus... 
Skywalker a écrit:
Il n'y a eu aucuns changement, ça vient des infos contenue dans la database de l'api qui ont été actualisé Wink

Ah je vois, c'est bien mais un peu embêtant.
Skywalker a écrit:
Et ne parle pas trop à l'exclamative on dirait que c'est des ordres ou des remarques agressives :/ Et ça ne donne pas trop envie d'aider Okay

Je n'ai jamais parlé à l'exclamative et encore moins voulu donner d'ordres ou faire des mauvaises remarques, juste que c'est vrai que j'ai du mal avec le social, surtout que je considère ça comme un travail donc je suis concentré et que je peut avoir tendance à répondre assez simplement. Je ferais en sorte d'écrire plus sympathiquement. Mais merci quand même Okay




______________________________________________________
#~Ma chaine Youtube~#
Message Programme qui ne fonctionne plus... 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch