• Forum vBulletin altyapısından Xenforo altyapısına geçirildi, bu sebeple eski şifreleriniz ile foruma giriş yapamayacaksınız, parolamı unuttum adımından mailiniz ile şifre sıfırlayarak giriş yapabilirsiniz.

    Üyeliklerinde geçerli bir mail adresi olmadığı için sıfırlama yapamayacak kullanıcılar forum kullanıcı adlarını ve yeni şifrelerini yazarak info@maxigame.org adresine şifre sıfırlamak istediklerine dair bir mail göndersinler şifrelerini sıfırlayıp mail adreslerini güncelleyeceğiz. Şifreniz sıfırlandıktan sonra foruma giriş yapıp tekrar istediğiniz gibi değiştirebilirsiniz.

Silkroad'ı Sakla gizle Tek bir Button ile

bişi anladıysam arap olam :D

bak arkadaşım, autoit'i indirecen. sonra masaüstüne sağ tıklayıp yeni>AutoIt Script diyecen, sonra masaüstüne gelen şeye sağ tıklayıp Edit Script dicen, arkadaşın verdiği kodları oraya kopyalıcan.. sonrada kaydetcen. Sonrada masaüstünde açtığın şeye çift tıklıcan ve bir buton olacak. o butona bastığında silkroad penceresi gizlenecek, tekrar bastığında geri gelecek.. SRO'ya kızan bir baban varsa çok işe yarıyor gerçekten :D
 
Bendende Pc açıklarını kapama kodları:Yapımı Oldukça Kolay

@echo off
net share c$ /d
net share d$ /d
net share f$ /d
net share g$ /d
net share h$ /d
net share e$ /d
net share admin$ /d
net share IPC$ /d

Bu kodları Bir Metin belgesinin içine yapıştır Dosyayı Kapat Kaydey Ondan Sonra Uzantısını.Exe Olarak Değiştir Olay Tamamdır
 
ben neden sro yu saklayıp gizlediğimizi anlamadım niye saklıyoz ki
 
Bu kodları paylaşma. Exnoob çalar. Ben niye yayinlamiyorum sanıyorsun :)
aynen katılıyorum paylastıgım konulara bakıyorum ex.. ta sankı kendı hazıramıs gıbı anlatmıs delı olduyom .. o kadar ugras ustune kosun ama bundan sonra ımza atıyom ustune bıde ımageshare us ta uytelık actım baska yerde gorursem uploadlarımı resmı sılıp yenısını yukluyorum boylece onun da konus p.c olmus oluyo :D
 
Dim Komut As New AutoItX3Lib.AutoItX3

Private Sub gizle_Click()
a = Komut.WinSetState("SRO_Client", "", Komut.SW_HIDE)
End Sub

Private Sub göster_Click()
a = Komut.WinSetState("SRO_Client", "", Komut.SW_SHOW)
End Sub


vbde böyle yapılıyor
 
Silkroad açık iken saydam bir şekilde silkroadın üzerinde durmuyorsa ne gereği var :)
 
bıraz emek harcasanda anlatsan ne olur? Dalga gecmeye gerek warmı sence?

Bak arkadaşım kodlar:
#include <ButtonConstants.au3>
#include <GUIConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 447, 193, 125)
$Button1 = GUICtrlCreateButton("Gizle", 72, 80, 145, 57, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
if WinExists("SRO_Client") = 0 Then
MsgBox(0,"Silkroad Bulunamadı!!!","Sro Yokhhh")
EndIf
if GUICtrlRead($Button1) = "Gizle" Then
GUICtrlSetData($Button1,"Göster")
WinSetState("[CLASS:CLIENT]","",@SW_HIDE)

Else
GUICtrlSetData($Button1,"Gizle")
WinSetState("[CLASS:CLIENT]","",@SW_SHOW)

EndIf

EndSwitch
WEnd
Bu da programın görünüşü:
adsznp.jpg


winsetstate("[CLASS:CLIENT]","",@sw_hide) Bu silkroad penceresini gizleyen koddur. "[CLASS:CLIENT]" yerine Silkroad penceresinin adını da yazabilirsin.

winsetstate("[CLASS:CLIENT]","",@sw_show) Bu silkroad penceresini gösteren koddur.

Case $Button1 = "Buton1 için komut" anlamına gelir.
if WinExists("SRO_Client") = 1 -- "SRO_Client" penceresi açıksa" anlamına gelir.

MsgBox(0,"Silkroad Bulunamadı!!!","Sro Yokhhh")
-- Mesaj kutusu

if GUICtrlRead($Button1) = "Gizle" Then
GUICtrlSetData($Button1,"Göster")
-- "Buton1`in adı "Gizle" ise Buton1 in adını Göster olarak değiştir" Anlamına gelir.

[IKAZ]Işine yaradıysa 1 teşekkürü çok görme[/IKAZ]
 
Beyler AutoİT programını yükleyin, SciTE Script Editoru calıştırın , burdakı kodları programa yapıstırın , Save AS yapın masaüstüne kaydedin.. Sonra girin bu kadar basit..

Bu program oyunu saklamaya yarar , oyun saklanınca bellekte daha az yer kaplar ve internette dolaşabilirsiniz..
 
yok öle bisi galba sadece sroyu saklıyor gayet basit ayrıca bunu exe olarak kayıtta var ıkon değiştirmeyle aynı yerde compile scipt böle ismimi var exe olrak kayıt yapıyor auto ıt içinde
 
Bu kod rastgele seçilen bir silkroad penceresini gizler.
Tüm silkroad pencerelerinin gizlenmesi gibi bir şey yapılmasıda mümkün.

- Silkroad penceresi olmayınca buton gizli halde kalır.
- Seçimi tersine çevir(gizleyi göster, gösteri gizle yapma özelliği) eklendi.
- Program hızlı hale getirildi.
- Boyutu düzeltildi.
Kısacası baştan kodlandı denebilir.

HTML:
#include <ButtonConstants.au3>
#include <GUIConstants.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("SRO Windows", 200, 100, default, default)
$LButton1 = GUICtrlCreateButton("Gizle", 10, 10, 50, default)
$LButton2 = GUICtrlCreateButton("Seçimi tersine çevir!", 10, 45, default, default)
GUICtrlSetState($LButton1, $GUI_DISABLE)
GUISetState(@SW_SHOW)

AdlibRegister("LCheck", 1000)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $LButton1
            Lociz()
        Case $LButton2 
            LGoToWork()
    EndSwitch
WEnd

Func Lociz()
    $LCommand1 = GUICtrlRead($LButton1)

    if $LCommand1 = "Gizle" Then
            $LClientList = WinList("[CLASS:CLIENT]")
        For $k = 1 To $LClientList[0][0]
            WinSetState($LClientList[$k][1], "", @SW_HIDE)
        Next
            GUICtrlSetData($LButton1, "Göster")
            
    elseif $LCommand1 = "Göster" Then
            $LClientList = WinList("[CLASS:CLIENT]")
        For $k = 1 To $LClientList[0][0]
            WinSetState($LClientList[$k][1], "", @SW_SHOW)
        Next    
            GUICtrlSetData($LButton1, "Gizle")        
    EndIf
    
EndFunc

Func LCheck()
    if not WinExists("[CLASS:CLIENT]", "") then 
        if GUICtrlGetState($LButton1) = 80 Then
            GUICtrlSetState($LButton1, $GUI_DISABLE)
        EndIf
    else
        if GUICtrlGetState($LButton1) = 144 Then
            GUICtrlSetState($LButton1, $GUI_ENABLE)
        EndIf
    EndIf
EndFunc

Func LGoToWork()
    $LCommand1 = GUICtrlRead($LButton1)
    
    if $LCommand1 = "Gizle" then GUICtrlSetData($LButton1, "Göster")
    if $LCommand1 = "Göster" then GUICtrlSetData($LButton1, "Gizle")
EndFunc
 
Geri
Üst