This is the one you shared;
Code:
If WScript.Arguments.Count=6 Then
ElseIf WScript.Arguments.Count=5 Then
Else
MsgBox "NFS World Launcher by GMZ"& (vbCr) &""& (vbCr) &"Shard:"& (vbTab) &""& (vbTab) &"Region:"& (vbCr) &"APEX"& (vbTab) &""& (vbTab) &"US / EU"& (vbCr) &"CHICANE"& (vbTab) &""& (vbTab) &"US / EU"& (vbCr) &""& (vbCr) &"Shortcut example:"& (vbCr) &"D:\NFSW\Launcher.vbs "& Chr(34) &"D:\NFSW\Data\nfsw.exe"& Chr(34) &" APEX EU MAIL PASSWORD"& (vbCr) &""& (vbCr) &"CMD/BAT example:"& (vbCr) &"Start /b wscript.exe same as shortcut"
WScript.Quit(1)
End If
On Error Resume Next
Dim EXE,REGION,MAIL,PASSWORD,SERV,WshShell,WinHttp,XML,x,TOKEN,USERID
EXE=WScript.arguments.Item(0)
If WScript.arguments.Item(1)="APEX" Then
SERV="https://94.236.124.241/nfsw/Engine.svc"
End If
If WScript.arguments.Item(1)="CHICANE" Then
SERV="https://94.236.46.101/nfsw/Engine.svc"
End If
REGION=WScript.arguments.Item(2)
MAIL=WScript.arguments.Item(3)
PASSWORD=WScript.arguments.Item(4)
Set WshShell=CreateObject("WScript.Shell")
Set WinHttp=CreateObject("WinHttp.WinHttpRequest.5.1")
Set XML=CreateObject("Microsoft.XMLDOM")
WinHttp.Option(4)=&H3300
WinHttp.Option(17)=False
WinHttp.SetTimeouts 0,10000,10000,10000
WinHttp.Open "POST",""& SERV &"/User/AuthenticateUser2",False
WinHttp.SetRequestHeader "User-Agent","Mozilla/3.0 (compatible; My Browser/1.0)"
WinHttp.SetRequestHeader "Content-Type","text/xml;charset=utf-8"
WinHttp.SetRequestHeader "Connection","close"
WinHttp.Send("<Credentials xmlns="& Chr(34) &"http://schemas.datacontract.org/2004/07/Victory.DataLayer.Serialization"& Chr(34) &"><Email>"& MAIL &"</Email><Password>"& PASSWORD &"</Password><Region>"& REGION &"</Region></Credentials>")
XML.async=False
XML.loadXML WinHttp.responseText
For Each x In XML.documentElement.childNodes
If x.nodename="ErrorCode" Then
MsgBox "Error! wrong password?"
WScript.Quit(1)
End If
If x.nodename="securityToken" Then
TOKEN=x.text
End If
If x.nodename="userId" Then
USERID=x.text
End If
Next
If WScript.Arguments.Count=6 Then
WshShell.Run("mshta.exe "& Chr(34) &"javascript:clipboardData.setData('text','"& REGION &" "& SERV &" "& TOKEN &" "& USERID &"');close();"& Chr(34) &""),0,True
MsgBox "Clipboard:"& (vbCr) &""& REGION &" "& SERV &" "& TOKEN &" "& USERID &""
Else
WshShell.Run(""& Chr(34) &""& EXE &""& Chr(34) &" "& REGION &" "& SERV &" "& TOKEN &" "& USERID &"")
End If
This is the one EpickC*ckMuncher aka ZeroCool+ shared;
Code:
If WScript.Arguments.Count=6 Then
ElseIf WScript.Arguments.Count=5 Then
Else
MsgBox "NFS World Launcher by GMZ"& (vbCr) &""& (vbCr) &"Shard:"& (vbTab) &""& (vbTab) &"Region:"& (vbCr) &"APEX"& (vbTab) &""& (vbTab) &"US / EU"& (vbCr) &"CHICANE"& (vbTab) &""& (vbTab) &"US / EU"& (vbCr) &""& (vbCr) &"Shortcut example:"& (vbCr) &"D:\NFSW\Launcher.vbs "& Chr(34) &"D:\NFSW\Data\nfsw.exe"& Chr(34) &" APEX EU MAIL PASSWORD"& (vbCr) &""& (vbCr) &"CMD/BAT example:"& (vbCr) &"Start /b wscript.exe same as shortcut"
WScript.Quit(1)
End If
On Error Resume Next
Dim EXE,REGION,MAIL,PASSWORD,SERV,WshShell,WinHttp,XML,x,TOKEN,USERID
EXE=WScript.arguments.Item(0)
If WScript.arguments.Item(1)="APEX" Then
SERV="https://94.236.124.241/nfsw/Engine.svc"
End If
If WScript.arguments.Item(1)="CHICANE" Then
SERV="https://94.236.46.101/nfsw/Engine.svc"
End If
REGION=WScript.arguments.Item(2)
MAIL=WScript.arguments.Item(3)
PASSWORD=WScript.arguments.Item(4)
Set WshShell=CreateObject("WScript.Shell")
Set WinHttp=CreateObject("WinHttp.WinHttpRequest.5.1")
Set XML=CreateObject("Microsoft.XMLDOM")
WinHttp.Option(4)=&H3300
WinHttp.Option(17)=False
WinHttp.SetTimeouts 0,10000,10000,10000
WinHttp.Open "POST",""& SERV &"/User/AuthenticateUser2",False
WinHttp.SetRequestHeader "User-Agent","Mozilla/3.0 (compatible; My Browser/1.0)"
WinHttp.SetRequestHeader "Content-Type","text/xml;charset=utf-8"
WinHttp.SetRequestHeader "Connection","close"
WinHttp.Send("<Credentials xmlns="& Chr(34) &"http://schemas.datacontract.org/2004/07/Victory.DataLayer.Serialization"& Chr(34) &"><Email>"& MAIL &"</Email><Password>"& PASSWORD &"</Password><Region>"& REGION &"</Region></Credentials>")
XML.async=False
XML.loadXML WinHttp.responseText
For Each x In XML.documentElement.childNodes
If x.nodename="ErrorCode" Then
MsgBox "Error! wrong password?"
WScript.Quit(1)
End If
If x.nodename="securityToken" Then
TOKEN=x.text
End If
If x.nodename="userId" Then
USERID=x.text
End If
Next
If WScript.Arguments.Count=6 Then
WshShell.Run("mshta.exe "& Chr(34) &"javascript:clipboardData.setData('text','"& REGION &" "& SERV &" "& TOKEN &" "& USERID &"');close();"& Chr(34) &""),0,True
MsgBox "Clipboard:"& (vbCr) &""& REGION &" "& SERV &" "& TOKEN &" "& USERID &""
Else
WshShell.Run(""& Chr(34) &""& EXE &""& Chr(34) &" "& REGION &" "& SERV &" "& TOKEN &" "& USERID &"")
End If
Find me a difference
Edit: And stop with that '
red color' fetish.. It's hurting my eyes.