-
Posts
933 -
Joined
-
Last visited
-
Days Won
3
Content Type
Profiles
Forums
Calendar
Posts posted by mesale0077
-
-
Doğum gününüz kutlu olsun.
-
Pnogramdı yada görüntü vs bilgileri paylaşabilirmisiniz
-
Deneme amaçlı yapmıştım
Başıma sizinkine benzeyen virüs bulaşmıştı..Bende böyle
Bir şey yazmıştım.
Birçok eksiklik var .İşinizi gördüyse gerisi önemli değil.
Çalışması şöyle:
virüs md5değerini alıyor .md5aynı olan dosyayı siliyor.eğer
Çalışıyorsa virüsü durduruyor.sonra tekrar silmek için uğraşıyor.
Silinenler ve bulunanların virüslerin ayrıca konum bilgilerini
Alınıyor ve log kaydı oluşturuluyor.
Sürücü şeklinde yapmam tamamen sürücüyü daha iyi taramasıydı.
Bu antivirüs değil. Sadece bizim virüs diye tanımladığımız. Virüs ve benzerleri bulmaktı
Amacı. -
http://www.mediafire.com/download/pgusxlv2qiulhis/Aavirustemizleme2_.rar
Bu linki deneyiniz.
Önceki linkte çalışıyor -
-
kamuran731 dostum verdiğim program işinizi görüyormu? o programda klasörleri görünür kodu yoktu sanırım. bir tek eksikliği o, ayrıca tarama süresi ,pc gücüne görede tarama hızı değişebilir .
-
Boyuttan ziyade
Md5 değeriyle tarat cod olarak aynı boyutta program yada dosya olabilir.
Ayrıca musallat virüsü ise .ankadaşlara katılıyorum.güvenli
Modda tarama yaptır.
Newfolder ise kolay
Benim program bulur.durdurur siler.
Tabi musallat exenin otomatik durdurmada pc ye reset attrıyor
O dikkatimi çekti.ayrıca musallat virüsten kurtulma exesi pek yok
Olan arkadaşlarda varsa paylaşabilirmi -
linki yeniledim,çalışıyormu biraz kapsamlı arama yapıyor.
aslında mantığını anlarsan sende yaparsın.
http://www.tnctr.com/topic/262920-klasoer-adyndaki-exe-virusleri-silme-kodu/?p=1472097
kodlar konusunda söz veremem
çok uzun süre önce yapmıştım
ayrıca pc garantideydi geldi tuş takımlarını bozmuşlar geri gönderdim.
pc gelsin kodları bulmaya çalışacağım yada autla
-
-
Doğum gününüz kutlu olsun.
-
http://www.google.com/url?sa=t&source=web&cd=7&ved=0CDMQFjAG&url=http%3A%2F%2Fdownloads.checkpoint.com%2Fdc%2Fdownload.htm%3FID%3D13949&rct=j&q=checkpoint%20modem%20dns%20ayarlar%C4%B1&ei=oXXyU6_7FOnb7Aa024CYDw&usg=AFQjCNEMMvXJEIw3wYIQStbzVVX3wa_17A&bvm=bv.73231344,d.ZGU
Modemin Kullanımı var inceleyiniz.
Modem ayarlarıyla alakalı olabilir. -
Modemden engelliyse yapacak bir şey yok.
Ayrıca point noktasındaysan ana dağıtıcıya
müdahale edemeyebilirsin
Tor tarayıcısını deneyiniz.
Giriş oluyormu? -
-
kodları dikkatlice incelerseniz bu sonuç çıkıyor
#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $hGUI = GUICreate("Geri sayım aracı", 351, 151, 192, 125) $label = GUICtrlCreateLabel("00:00:00", 30, 62, 260, 80) GUICtrlSetFont(-1, 50, 400) $button = GUICtrlCreateButton("Güncelle", 295, 120, 50, 25) $Input1 = GUICtrlCreateInput("00", 104, 16, 33, 21) $Input2 = GUICtrlCreateInput("01", 224, 16, 41, 21) $Label1 = GUICtrlCreateLabel("Saat", 64, 16, 26, 17) $Label2 = GUICtrlCreateLabel("Dakika", 176, 16, 38, 17) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $button Global $seconds = GUICtrlRead($Input1)*3600+GUICtrlRead($Input2) * 60 ;convert to seconds Countdown() AdlibRegister("Countdown", 1000) EndSwitch WEnd AdlibUnRegister("Countdown") GUIDelete($hGUI) Exit Func Countdown() Local $sec, $min, $hr $sec = Mod($seconds, 60) $min = Mod($seconds / 60, 60) $hr = Floor($seconds / 60 ^ 2) GUICtrlSetData($label, StringFormat("%02i:%02i:%02i", $hr, $min, $sec)) If $seconds <= 0 Then AdlibUnRegister("Countdown") MsgBox(0, "Bilgi", "Süre bitti 00:00:00") Exit EndIf $seconds -= 1 EndFunc
-
http://www.autoitscript.com/forum/topic/128086-countdown-timer-with-the-option-to-add-time/?p=888675
konuyu inceleyin
-
Arkadaslar buldum, eğer lazım olur die düsünüyorsanız buyrun, hepinize çok tşk ederim,
#include <Constants.au3> #include <GUIConstantsEx.au3> #include <Misc.au3> #include <WinAPI.au3> #include <WindowsConstants.au3> Global Const $SC_DRAGMOVE = 0xF012 HotKeySet('{ESC}', '_Exit') Example() Func Example() Local $hGUI = GUICreate('', 100, 100, Default, Default, $WS_POPUP) _WinAPI_SetLayeredWindowAttributes($hGUI, 0xABCDEF) Local $iButton = GUICtrlCreateButton('Drag me', 0, 0, 100, 100) GUISetState(@SW_SHOW, $hGUI) Local $aCtrlCursor = 0, $aMousePos = 0, _ $fMove = False, _ $iBefore = 0 While 1 Switch GUIGetMsg() Case $iButton MsgBox($MB_SYSTEMMODAL, '', 'Button click') ; ExitLoop Case $GUI_EVENT_PRIMARYDOWN $aCtrlCursor = GUIGetCursorInfo($hGUI) $aMousePos = MouseGetPos() $fMove = False $iBefore = $aMousePos[0] + $aCtrlCursor[0] + $aMousePos[1] + $aCtrlCursor[1] ; Detect the co-ordinates before. While _IsPressed(01) WinMove($hGUI, '', $aMousePos[0] - $aCtrlCursor[0], $aMousePos[1] - $aCtrlCursor[1]) ; _SendMessage($hGUI, $WM_SYSCOMMAND, $SC_DRAGMOVE, False) ; If the co-ordinates are different then it moved. $fMove = Not ($aMousePos[0] + $aCtrlCursor[0] + $aMousePos[1] + $aCtrlCursor[1] = $iBefore) $aMousePos = MouseGetPos() If @error Then ExitLoop WEnd ; If it moved clear the button message. If $fMove Then Do ; Clear the button message. Until GUIGetMsg() = 0 EndIf EndSwitch WEnd GUIDelete($hGUI) EndFunc ;==>Example Func _Exit() Exit EndFunc ;==>_Exit
gerçekten kullanışlı,
-
md5 kullan o daha sağlıklı
Basit bir şey karaladım. Kendine göre ayarlarsın. C:\ yerine kontrol edip silmek istediğin konumu yazacaksın.
_FIND_AND_DELETE("C:\") Func _FIND_AND_DELETE($BL_PATH) If StringRight($BL_PATH, 1) <> "\" Then $BL_PATH &= "\" Local $FFFF = FileFindFirstFile($BL_PATH & "*"), $FFFN, $EXE_NAME If $FFFF <> -1 Then While 1 $FFFN = FileFindNextFile($FFFF) If @error Then ExitLoop If @extended = 1 Then ;Klasör ise $EXE_NAME = $BL_PATH & $FFFN & ".exe" ;Dosya varsa ve klasör değilse If FileExists($EXE_NAME) = 1 And StringInStr(FileGetAttrib($EXE_NAME),"D") = 0 Then ConsoleWrite($EXE_NAME & @LF) ;Silersin FileSetAttrib($EXE_NAME,"-RSH") ;bulunan exe dosyasına attrib yapalım FileDelete($EXE_NAME) FileSetAttrib($BL_PATH & $FFFN,"-SH") ;Klasörü görünür yapalım EndIf _FIND_AND_DELETE($BL_PATH & $FFFN) EndIf WEnd EndIf EndFunc
bu koda ek olarak md5 taraması ekle.
virüsün md5 aynı oluyor farklı adlar alsada
virüsün md5 değerine göre dosya tarat bence
buna benzer bir şey yapmıştım .Size fikir vermesi açısından
sürücüyü seçip exeyi tanımladığınızda tarama işlemi başlıyor
sürücüyü seçmeyi unutmayın otomatik seçme yok sürücüleri hepsini görmesi için programı çalıştırmadan sürücüleri pc takın ondan sonra çalıştırın. silinen exelerin adlarını programın yanında oluşan Silinenvirusler.txt adlı dosya içinde kayıt altına alıyor böylelikle silinen exelerin nerelere sonuçlandığını görmek için.
linki:http://urlmi.com/removr
-
Tnc screen capture güzel düşünülmüş bir çalışma olmuş .
belirli alanın resmini almaya yarayan
örnek bir kod.
prtsc tuşu ile ekran görüntüsünü alıyorsunuz seçim alanı kendinize göre ayarlayabiliyorsunuz.
[spoiler]#include <WindowsConstants.au3> #include <Misc.au3> #include <WinAPI.au3> #include <ScreenCapture.au3> #include <ClipBoard.au3> #include <ColorConstants.au3> #include <Constants.au3> ; Settings Global $_fShowMousePos = True, $_fShowRectSize = True, $_fHideDesktop = False, $_fHideTaskBar = False If HotKeySet("{PRINTSCREEN}", "resimal") = 0 Then MsgBox($MB_SYSTEMMODAL, "", "kısayol anahtarı kullanılmadı!") Exit 1 EndIf HotKeySet("^+{3}", "resimal") ;PrintScreen While 1 Sleep(10000) ;10 sec WEnd Func resimal() Local $iX1 = 0, $iY1 = 0, $iX2 = 0, $iY2 = 0 Local $hGUICapture = 0 Mark_Rect($hGUICapture, $iX1, $iY1, $iX2, $iY2) Local $hBitmap = _ScreenCapture_CaptureWnd(@YEAR&@MIN&@SEC&".jpg", $hGUICapture, $iX1, $iY1, $iX2, $iY2, False) GUIDelete($hGUICapture) Local $fOpenCb = _ClipBoard_Open(0) If Not $fOpenCb Then MsgBox($MB_SYSTEMMODAL, "", "Kopyalama panosuna eklenmedi !") Return False EndIf _ClipBoard_Empty() Local $hBitmap3 = _WinAPI_CopyImage($hBitmap, 0, 0, 0, BitOR($LR_COPYDELETEORG, $LR_COPYRETURNORG)) _WinAPI_DeleteObject($hBitmap) _ClipBoard_SetDataEx($hBitmap3, $CF_BITMAP) _ClipBoard_Close() _WinAPI_DeleteObject($hBitmap3) EndFunc ;==>Example Func Mark_Rect(ByRef $hGUICapture, ByRef $iX1, ByRef $iY1, ByRef $iX2, ByRef $iY2) Local $iX_Pos = 0, $iY_Pos = 0, $iTemp = 0, $iWidth = 0, $iHeight = 0 Local $hMask_1 = 0 Local $hWnd = WinGetHandle("[TITLE:Program Manager;CLASS:Progman]") Local $aWgp = WinGetPos($hWnd) If $_fHideDesktop Then ControlHide($hWnd, "", "[CLASS:SysListView32; INSTANCE:1]") EndIf If $_fHideTaskBar Then WinSetState("[CLASS:Shell_TrayWnd]", "", @SW_HIDE) WinSetState("[CLASS:Button]", "", @SW_HIDE) EndIf Local $hBitmap = _ScreenCapture_Capture("", $aWgp[0], $aWgp[1], $aWgp[2], $aWgp[3]) Local $aSize[2] = [$aWgp[2], $aWgp[3]] $aWgp = 0 $hGUICapture = GUICreate("", $aSize[0], $aSize[1], 0, 0, $WS_POPUP, BitOR($WS_EX_TOOLWINDOW, $WS_EX_APPWINDOW, $WS_EX_TOPMOST)) GUISetCursor($IDC_CROSS, 1, $hGUICapture) If $__g_iGDIPRef = 0 Then _GDIPlus_Startup() EndIf Local $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUICapture) Local $hImage = _GDIPlus_BitmapCreateFromHBITMAP($hBitmap) _WinAPI_DeleteObject($hBitmap) WinSetTrans($hGUICapture, "", 0) GUISetState(@SW_SHOWNOACTIVATE, $hGUICapture) _GDIPlus_GraphicsDrawImage($hGraphic, $hImage, 0, 0) _GDIPlus_GraphicsDispose($hGraphic) _GDIPlus_ImageDispose($hImage) If $__g_iGDIPRef > 1 Then _GDIPlus_Shutdown() EndIf WinSetTrans($hGUICapture, "", 255) If $_fHideTaskBar Then WinSetState("[CLASS:Button]", "", @SW_SHOWNOACTIVATE) WinSetState("[CLASS:Shell_TrayWnd]", "", @SW_SHOWNOACTIVATE) EndIf If $_fHideDesktop Then ControlShow($hWnd, "", "[CLASS:SysListView32; INSTANCE:1]") EndIf Local $hGUIRect = GUICreate("", $aSize[0], $aSize[1], 0, 0, $WS_POPUP, BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST)) GUISetBkColor($COLOR_BLACK) GUISetCursor($IDC_CROSS, 1, $hGUIRect) _GUICreateInvRect($hGUIRect, $aSize, $hMask_1, 0, 0, 1, 1) WinSetTrans($hGUIRect, "", 75) GUISetState(@SW_SHOWNOACTIVATE, $hGUIRect) Local $hUserDLL = DllOpen("user32.dll") Local $aMgp = 0 Local $fExitLoop = False ; Wait until mouse button pressed While Not _IsPressed("01", $hUserDLL) And Not $fExitLoop If $_fShowMousePos Then $aMgp = MouseGetPos() ToolTip("x: " & $aMgp[0] & ", y: " & $aMgp[1], _ $aMgp[0] + ($aMgp[0] > 100 ? -95 : 10), _ $aMgp[1] + ($aMgp[1] > 50 ? -35 : 10)) EndIf Sleep(10) If _IsPressed("1B", $hUserDLL) Then $fExitLoop = True WEnd If $_fShowMousePos Then ToolTip("") EndIf ; Get first mouse position $aMgp = MouseGetPos() $iX1 = $aMgp[0] $iY1 = $aMgp[1] ; Draw rectangle while mouse button pressed While _IsPressed("01", $hUserDLL) And Not $fExitLoop $aMgp = MouseGetPos() ; Set in correct order if required If $aMgp[0] < $iX1 Then $iX_Pos = $aMgp[0] $iWidth = $iX1 - $aMgp[0] Else $iX_Pos = $iX1 $iWidth = $aMgp[0] - $iX1 EndIf If $aMgp[1] < $iY1 Then $iY_Pos = $aMgp[1] $iHeight = $iY1 - $aMgp[1] Else $iY_Pos = $iY1 $iHeight = $aMgp[1] - $iY1 EndIf _GUICreateInvRect($hGUIRect, $aSize, $hMask_1, $iX_Pos, $iY_Pos, $iWidth, $iHeight) If $_fShowRectSize Then ToolTip("w: " & Abs($aMgp[0] - $iX1) & ", h: " & Abs($aMgp[1] - $iY1), _ $aMgp[0] + ((($aMgp[0] > $aSize[0] - 100 Or ($aMgp[0] - $iX1 < 0 And $aMgp[1] - $iY1 < 0)) And $aMgp[0] > 100) ? -95 : 10), _ $aMgp[1] + ((($aMgp[1] > $aSize[1] - 40 Or ($aMgp[0] - $iX1 < 0 And $aMgp[1] - $iY1 < 0)) And $aMgp[1] > 40) ? -35 : 10)) EndIf Sleep(10) If _IsPressed("1B", $hUserDLL) Then $fExitLoop = True WEnd If $_fShowRectSize Then ToolTip("") EndIf _WinAPI_DeleteObject($hMask_1) ; Get second mouse position $iX2 = $aMgp[0] $iY2 = $aMgp[1] ; Set in correct order if required If $iX2 < $iX1 Then $iTemp = $iX1 $iX1 = $iX2 $iX2 = $iTemp EndIf If $iY2 < $iY1 Then $iTemp = $iY1 $iY1 = $iY2 $iY2 = $iTemp EndIf GUIDelete($hGUIRect) DllClose($hUserDLL) EndFunc ;==>Mark_Rect Func _GUICreateInvRect($hWnd, $aSize, ByRef $hMask_1, $iX, $iY, $iW, $iH) Local $hMask_2 = 0, $hMask_3 = 0, $hMask_4 = 0 $hMask_1 = _WinAPI_CreateRectRgn(0, 0, $aSize[0], $iY) $hMask_2 = _WinAPI_CreateRectRgn(0, 0, $iX, $aSize[1]) $hMask_3 = _WinAPI_CreateRectRgn($iX + $iW, 0, $aSize[0], $aSize[1]) $hMask_4 = _WinAPI_CreateRectRgn(0, $iY + $iH, $aSize[0], $aSize[1]) _WinAPI_CombineRgn($hMask_1, $hMask_1, $hMask_2, 2) _WinAPI_CombineRgn($hMask_1, $hMask_1, $hMask_3, 2) _WinAPI_CombineRgn($hMask_1, $hMask_1, $hMask_4, 2) _WinAPI_DeleteObject($hMask_2) _WinAPI_DeleteObject($hMask_3) _WinAPI_DeleteObject($hMask_4) _WinAPI_SetWindowRgn($hWnd, $hMask_1, 1) EndFunc ;==>_GUICreateInvRect
[/spoiler] -
Tümünü Seç Ekli;
Programlar yerine Pro Klasörü aç.
https://yadi.sk/d/gDMLYF-7WTjjb
link gitmiş son halini bende merak ettim
yeni halini kod ve exeyi paylaşırmısınız arkadaşlar ;)
-
-
Katılımsız yada çıkartan programla alakalı
Sorun kodla alakalı değil
Birde kodu yanlış yazmışsınız
$Exe_name
Sonu exe uzantılı bir program adı yazmalısınız kodu iyi inceleyin.
Exe yolunu belirtmemişsiniz programa
Sfx yap öğle çıkart
Dll eksik diyor....
Elimdede proğramınız olmadığı için ancak
Bu kadar yorum yapabiliyorum.
Benim pc daha garantiden gelmedi
Arkadaştan pc aldıkça yardımcı olmaya çalışıyorum.
Onun pc yede program kuramam.
Şuan telden yazıyorum. -
[spoiler]
#include <GUIConstantsEx.au3> #include <ProgressConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <File.au3> Global $EXE_NAME ="notepad.exe";buraya kurulacak dosya ismini yaz 1 ;not defterini çalıştırdım. Global $mesale0077=@CRLF&$EXE_NAME &@CRLF&"Bilgisayarına Yükleniyor..."&@CRLF&"Lütfen Bekleyiniz" $Form2 = GUICreate("", 350, 108,-1,-1,$WS_POPUP,$WS_EX_TOOLWINDOW + $WS_EX_TOPMOST) GUISetBkColor(0x000000) $EnterPassLabel = GUICtrlCreateLabel($mesale0077, 8, 0, 340, 73,$SS_CENTER) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFFFFFF) $Progress1 = GUICtrlCreateProgress(8, 80, 333, 17) GUICtrlSetBkColor(-1,0xe8e6d9) GUICtrlSetColor(-1,0x352629) DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", GUICtrlGetHandle(-1), "wstr", "", "wstr", "") _GuiRoundCorners(GUICtrlGetHandle($Progress1), 0, 0, 5, 5) GUISetState(@SW_SHOW) Global $EXE_FILE =$EXE_NAME ;@TempDir&"\"&$EXE_NAME FileInstall("Filanca.exe",$EXE_FILE);buraya kurulacak dosya ismini yaz 2 Global $PR_PID = Run($EXE_FILE) Global $START_TIME[2] = [TimerInit(),0] Global $SET_PROGRES While ProcessExists($PR_PID) If WinActive("Hesap Makinesi") Then ; Hesap makinesi penceresi aktif olunca kapanıyor, ProcessClose($PR_PID) ExitLoop endif If Round(TimerDiff($START_TIME[0])) > $START_TIME[1] Then $START_TIME[1] = Round(TimerDiff($START_TIME[0]) / 1000) $SET_PROGRES += 1 GUICtrlSetData($Progress1,$SET_PROGRES) If $SET_PROGRES >= 100 Then $SET_PROGRES = 1 EndIf Sleep(15) WEnd GUICtrlSetData($Progress1,25) sleep(20) GUICtrlSetData($Progress1,50) sleep(20) GUICtrlSetData($Progress1,75) sleep(20) GUICtrlSetData($Progress1,100) sleep(20) GUICtrlSetData($EnterPassLabel,""&@CRLF&@CRLF&$EXE_NAME&@CRLF&" Kurulumu tamamlandı") FileDelete($EXE_FILE) Sleep(500) Func _GuiRoundCorners($h_win, $i_x1, $i_y1, $i_x3, $i_y3) Dim $pos, $ret, $ret2 $pos = WinGetPos($h_win) $ret = DllCall("gdi32.dll", "long", "CreateRoundRectRgn", "long", $i_x1, "long", $i_y1, "long", $pos[2], "long", $pos[3], "long", $i_x3, "long", $i_y3) If $ret[0] Then $ret2 = DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $ret[0], "int", 1) If $ret2[0] Then Return 1 Else Return 0 EndIf Else Return 0 EndIf EndFunc
[/spoiler]
makıncı arkadaşımızın paylaştığı kod katılımsızlar için düşünmüştüm
pencere aktif olunca yapacak olursan yukarıdaki koda bakabilirsin
hesap makinesi penceresi aktif olunca animasyon kapanıyor
tabi farklı kodlar ekleyebilirsin
-
F klavye güzel. Q klavye alışkanlık lakin Q klavyede harf ararsın.f klavyede öğrendikten sonra harf aramazsın.
Ben telefonda dahi f klavye kullarıyorum o derece sevdim.
Q klavye bir anlam içinde değil.f klavyede harflerin yerleşimi bir anlam içinde. Misal
Sesli harfler sol elinin altında. sağ elinin altında sessiz harfler
Tabi alışkanlıklar bazı şeyleri öğrenmemizi etkiliyor.
Tercihler ,zevkler tartışılmaz ;) -
yeni sürümü yada yeniden link paylaşımı yapabilirmisiniz.
Edius 6.02 Error 13001 Hatası
in Yazılım
Posted
w8.1 64 Bit de Edius 6.02 kurarken error 13001 hatası alıyorum
çözüm yolunu bu şekilde yazmasına rağmen gereken driver indirdim
lakin driver uyumlu sistem değil deyip kurulmadı
ne yaptıysam kurulmadı bu konuda görüşlerinizi belkiyorum.
grafik kartı NVIDA GeForce GT 740M
üzerindeki sürücü versiyonu 9.18.13.4709
işletim sistemini değiştirme şansım yok
garantiden dolayı
böyle çözüm buldum lakin gereken driver kuramadım , tabi hata devam ediyor