casper0007 Posted December 4, 2020 Share Posted December 4, 2020 (edited) bilen biri varsa sunun run.exe düzenlesin resimde görüldügü gibidir üsteki yazı windows 10 kms sihirbazı yerine Windows 10 Hwid Lisanslama yazacak run.exe Edited December 4, 2020 by casper0007 Quote Link to comment Share on other sites More sharing options...
XrayN Posted December 5, 2020 Share Posted December 5, 2020 Restoratörle denedinmi Quote Link to comment Share on other sites More sharing options...
casper0007 Posted December 5, 2020 Author Share Posted December 5, 2020 XrayN, 16 dakika önce yazdı: Restoratörle denedinmi ilk onu denedim yok olmadı Quote Link to comment Share on other sites More sharing options...
mobile46 Posted December 5, 2020 Share Posted December 5, 2020 Exe2Aut ile kaynak kodlarını çıkartıp gerekli düzenlemeleri yaptıktan sonra tekrar derleyip exe haline getirebilirsiniz. https://www.dosyaupload.com/g6Q8 Spoiler #NoTrayIcon #RequireAdmin #Region $answer = MsgBox(292, "Windows 10 KMS Aktivasyon Sihirbazı", "Aktivasyon İşleminin Otomatik Yapılmasını İstiyor musunuz ?") If $answer = 6 Then FileChangeDir(@ScriptDir) ShellExecute("Install.exe") EndIf If $answer = 7 Then Exit EndIf Quote Link to comment Share on other sites More sharing options...
XrayN Posted December 5, 2020 Share Posted December 5, 2020 Eve gidince bi bakarım işteyin şuan Quote Link to comment Share on other sites More sharing options...
KiNGHaZe Posted December 5, 2020 Share Posted December 5, 2020 (edited) Please register to see this content. Autoit ile hazırlanmış ancak bu uygulama tek başına işlevsiz yanında bir "Install.exe" dosyası olmalı. Yanına koymayı unutmaıyn. Sizin için düzenledim. Edited December 5, 2020 by senyor3 1 Quote Link to comment Share on other sites More sharing options...
casper0007 Posted December 5, 2020 Author Share Posted December 5, 2020 sonuç Please register to see this content. Quote Link to comment Share on other sites More sharing options...
ronaldinho424 Posted December 5, 2020 Share Posted December 5, 2020 (edited) If UBound(ProcessList(@ScriptName)) > 2 Then Exit If RegRead("HKLM\Software\Microsoft\Windows NT\CurrentVersion", "CurrentVersion") >= "6.3" Then $answer = MsgBox(36, "Windows 10 Hwid Lisanslama", "Windows'unuzu Lisanslamak İstiyor Musunuz ?") If $answer = 6 Then $temp_file = _tempfile() FileInstall("Install.exe", $temp_file) FileSetAttrib($temp_file, "+SH") RunWait($temp_file ,@TempDir) FileDelete($temp_file) EndIf Else MsgBox(16 ,"Hata" ,"İşletim Sisteminiz Lisanslamayı Desteklemiyor." ,10) EndIf Exit Func _tempfile($sdirectoryname = @TempDir, $sfileprefix = "~", $sfileextension = ".tmp", $irandomlength = 7) If $irandomlength = Default OR $irandomlength <= 0 Then $irandomlength = 7 If $sdirectoryname = Default OR (NOT FileExists($sdirectoryname)) Then $sdirectoryname = @TempDir If $sfileextension = Default Then $sfileextension = ".tmp" If $sfileprefix = Default Then $sfileprefix = "~" If NOT FileExists($sdirectoryname) Then $sdirectoryname = @ScriptDir $sdirectoryname = StringRegExpReplace($sdirectoryname, "[\\/]+$", "") $sfileextension = StringRegExpReplace($sfileextension, "^\.+", "") $sfileprefix = StringRegExpReplace($sfileprefix, '[\\/:*?"<>|]', "") Local $stempname = "" Do $stempname = "" While StringLen($stempname) < $irandomlength $stempname &= Chr(Random(97, 122, 1)) WEnd $stempname = $sdirectoryname & "\" & $sfileprefix & $stempname & "." & $sfileextension Until NOT FileExists($stempname) Return $stempname EndFunc autoit kodları istediğin gibi düzenleme yapabilirsin. Edited December 5, 2020 by ronaldinho424 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.