johncher

Selamlar İnternet Exploreri çalıştırıp kapatınca tekrar açmak isteyince açılmıyor, görev yöneticisinden powershell kapatılınca tekrar açılabiliyor.

Kolay gelsin ;autoit window info ile summary sekmesinden title ve text bilgisin alarak $title="buraya program başlık bilgisini yazın" $text="text bilgisini yazın" WinWait($title,$text) ;burda programın açılmasını bekler Run('taskkill /f /IM iexplore.exe') ;burdada kapatır internet explorer örnek olarak

ben biraz armadan sonra regedit te aratarak programın bilgisayarda olup olmadığına bakıp varsa direk kurdurmadan diğer programa geçmek için kullanabileceğim kodu buldum lazım olan varsa benim kadar aramasın, iyi geceler if _IsInstalled($SearchFor_1)=false then ;false geldiğinden kurulu olmadığı anlaşılıyor burda kurduracağım. endif $title="Microsoft Visual C++ 2010 x86 Redistributable" Const $SearchFor_1 = $title MsgBox(0, "Search Results", "Search for '" & $SearchFor_1 & "' AddRemove Programs entry result: " & @CRLF & _IsInstalled($SearchFor_1)) ; true yada false değer dönüyor _IsInstalled($SearchFor_1) 'de #Region #include <AddRemove.au3> #include-once Func _IsInstalled($DisplayName) Local $i = 1 If @AutoItX64 Then; Adjust for x64 process Local $RegPath = "\Microsoft\Windows\CurrentVersion\Uninstall" Local $RegRoot86 = "HKLM\SOFTWARE\Wow6432Node" Local $RegRoot64 = "HKLM64\SOFTWARE" Else; Adjust for x86 process Local $RegPath = "\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" Local $RegRoot86 = "HKLM" Local $RegRoot64 = "HKLM64" EndIf $IsSoftwareFound = __RegBranchSearch($RegRoot86 & $RegPath, 'DisplayName', $DisplayName); <== Search the 32 bit registry If $IsSoftwareFound Then Return True If @ProcessorArch = "X86" Then Return False; <== We are done if OS Arch is x86 ;## If we are here then the current OS Arch is 64 bit and the script is running as a 32 bit process. $IsSoftwareFound = __RegBranchSearch($RegRoot64 & $RegPath, 'DisplayName', $DisplayName); <== Search the 64 bit registry If $IsSoftwareFound Then Return True Return False EndFunc ;==>_IsInstalled #Region Internal Use Only Func __RegBranchSearch($RegPath, $RegName, $RegValue) Local $RegKey, $ThisRegValue Local $i = 1 Do $RegKey = RegEnumKey($RegPath, $i) If @error <> 0 Then ExitLoop $ThisRegValue = RegRead($RegPath & '\' & $RegKey, $RegName) If StringInStr($ThisRegValue, $RegValue) <> 0 Then Return True $i += 1 Until @error <> 0 Return False EndFunc #EndRegion Internal Use Only #EndRegion #include <AddRemove.au3>

Microsoftun Visual C 2010 gibi eklentilerini otomatik kurduruyorum. Ancak daha önce kurulu olan varsa hata verip exe duruyor. WinWait($title,$text) ;başlık ve texti bekliyor. Ben burada text ve text2 kodları if döngüsüyle nasıl farklılaştırabilirim. Program kurulu değilse üstteki gibi kurulu ise alttaki resimdeki gibi, kodlar resimlerden sonra şimdiden çok sağolun. #RequireAdmin Opt("TrayMenuMode",1) TraySetToolTip("Programınız Kuruluyor Lütfen Bekleyiniz..") $titles="Ek Programlar" TrayTip("Ek Programların Kurulumuna Başlandı..","....",5,1) ;************************************************************************************************************ $title="Microsoft Visual C++ 2010 x86 Redistributable Setup" $text="I have read and &accept the license terms." $text1="Installation Is Complete" $text2="&Repair Microsoft Visual C++ 2010 x86 Redistributable to its original state." ;kurulu ise ShellExecute(@WorkingDir & "\vcredist_x86.exe") ;burda kurulum başlıyor WinWait($title,$text) ;başlık ve texti bekliyor. Ben burada text ve text2 kodları if döngüsüyle nasıl farklılaştırabilirim. WinSetTrans($title,$text,0) ControlClick($title,$text,"Button3") ControlClick($title,$text,"Button6") WinWait($title,$text1) WinSetTrans($title,$text1,0) ControlClick($title,$text1,"Button8") sleep(1000) ; burdada diğer microsoft eklentilerini kurdurmaya aynı şekilde devam ediyor

Merhabalar evde 3 çocuk var. Malum okullar kapalı tüm bilgisayarlar çocukların elinde bir core duo işlemcili 3 gb ramli hdd girişi bozuk laptopum daha var. Aiorescue ile kullanıyorum. Ama ramdan kullandığı için chrome dahi çöküyor. Flash disk üzerinde direk başlatıp boot edilebilirmi sanalda olmadan yardımcı olursan sevinirim üstadım.

Teşekkürler.

autoitte veritabanı bağlantı vs eksiğim çok acces vt ile vb.net ile yaptım kullanici admin , sifre admin ücretsiz lisansız isterseniz data adlı olan uzantısını sildiğim acces dosyası adodb referanslardan ekleyin acces bağlantısı için Windows mediaplayer referanslardan ekleyin mp3 leri çalmak için FrmLogin.vb adında bir form oluşturun kodlar aşağıda Option Explicit On Public Class FrmLogin Private Sub GiriS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GiriS.Click Dim key As String On Error GoTo err_Renamed Dim no As Short BaGlaN() rS = cNn.Execute("select count(sn) from giris where (kullanici_adi='" & UseR.Text & "') and (sifre='" & PassworD.Text & "')") 'sayi değişkenine varianta giriş tablosundaki kullanici ad sifre yetki degerlerini tanımladım If rS.Fields(0).Value = 0 Then MsgBox("Kullanıcı Adı Şifenizi Kontrol Edin!", , "Kullanıcı") Exit Sub Else Me.Hide() FrmAjanDa.Show() End If err_Renamed: End Sub Private Sub password_KeyPress(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.KeyPressEventArgs) Handles PassworD.KeyPress Dim KeyAscii As Short = Asc(eventArgs.KeyChar) If KeyAscii = 13 Then Call GiriS_Click(GiriS, New System.EventArgs()) 'enter tuşlanırsa ara butonuna tıkla End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim s As String Dim substring As String Dim sp() As String s = "this \text\ box \contains \value \(08:00-17:41).mp3" sp = s.Split("\") For Each substring In sp TextBox1.Text = substring Next End Sub Private Sub ipTaL_Click(sender As Object, e As EventArgs) Handles ipTaL.Click Application.Exit() End Sub End Class Frm.Ajanda.vb adında bir form oluşturun kodlar aşağıda Option Explicit On Imports WMPLib Public Class FrmAjanDa Dim appPath As String = Application.StartupPath() Dim WithEvents Player As New WMPLib.WindowsMediaPlayer Private Sub FrmAjanDa_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed Application.Exit() End Sub Private Sub CmdRandevu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdRandevu.Click Dim saatS As String If ListBox1.SelectedItem IsNot Nothing = False Then MsgBox("Zil Sesi Seçin.") Exit Sub End If If ComboBox1.Text <> "" And TextBox2.Text <> "" And TextBox3.Text <> "" Then SaatKontrol() saatS = TextBox2.Text & ":" & TextBox3.Text sQl = "INSERT INTO randevu(adi,tarih,saat) VALUES('" & ListBox1.SelectedItem.ToString & "','" & ComboBox1.Text & "','" & saatS & "')" cNn.Execute(sQl) rS = Nothing MsgBox("Zil Saati Kaydedildi.") RanDevuGetir() TextBox2.Text = "" TextBox3.Text = "" Else MsgBox("Eksik Bilgi Girişi.") End If End Sub Private Sub TextBox2_KeyPress(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress Dim KeyAscii As Short = Asc(eventArgs.KeyChar) If Not rakam(KeyAscii) Then KeyAscii = 0 eventArgs.KeyChar = Chr(KeyAscii) If KeyAscii = 0 Then eventArgs.Handled = True End If End Sub Private Sub SaatKontrol() If TextBox2.Text = "1" Then TextBox2.Text = "01" If TextBox2.Text = "2" Then TextBox2.Text = "02" If TextBox2.Text = "3" Then TextBox2.Text = "03" If TextBox2.Text = "4" Then TextBox2.Text = "04" If TextBox2.Text = "5" Then TextBox2.Text = "05" If TextBox2.Text = "6" Then TextBox2.Text = "06" If TextBox2.Text = "7" Then TextBox2.Text = "07" If TextBox2.Text = "8" Then TextBox2.Text = "08" If TextBox2.Text = "9" Then TextBox2.Text = "09" If TextBox3.Text = "1" Then TextBox3.Text = "01" If TextBox3.Text = "2" Then TextBox3.Text = "02" If TextBox3.Text = "3" Then TextBox3.Text = "03" If TextBox3.Text = "4" Then TextBox3.Text = "04" If TextBox3.Text = "5" Then TextBox3.Text = "05" If TextBox3.Text = "6" Then TextBox3.Text = "06" If TextBox3.Text = "7" Then TextBox3.Text = "07" If TextBox3.Text = "8" Then TextBox3.Text = "08" If TextBox3.Text = "9" Then TextBox3.Text = "09" End Sub Private Sub TextBox1_KeyPress(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.KeyPressEventArgs) Dim KeyAscii As Short = Asc(eventArgs.KeyChar) Call buyut(KeyAscii) eventArgs.KeyChar = Chr(KeyAscii) If KeyAscii = 0 Then eventArgs.Handled = True End If End Sub Private Sub List1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles List1.MouseDown Dim xPos As Integer, yPos As Integer, i As Integer If e.Button = MouseButtons.Right Then xPos = e.X yPos = e.Y 'MsgBox("The X Position is " & xPos & " The Y Position is " & yPos) If List1.FocusedItem.Selected Then i = List1.FocusedItem.Index If MsgBox(List1.Items(i).SubItems(1).Text & " Zil iptal edilecek. Emin misiniz?", vbApplicationModal + vbYesNo + vbQuestion) = vbNo Then Exit Sub cNn.Execute("DELETE FROM randevu WHERE (sn =" & List1.FocusedItem.SubItems(2).Text & ")") 'List1.Items(i).Remove() RanDevuGetir() End If End If End Sub Private Sub List2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles List2.MouseDown Dim xPos As Integer, yPos As Integer, i As Integer If e.Button = MouseButtons.Right Then xPos = e.X yPos = e.Y If List2.FocusedItem.Selected Then i = List2.FocusedItem.Index If MsgBox(List2.Items(i).SubItems(1).Text & " Zil iptal edilecek. Emin misiniz?", vbApplicationModal + vbYesNo + vbQuestion) = vbNo Then Exit Sub cNn.Execute("DELETE FROM randevu WHERE (sn =" & List2.FocusedItem.SubItems(2).Text & ")") RanDevuGetir() End If End If End Sub Private Sub List3_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles List3.MouseDown Dim xPos As Integer, yPos As Integer, i As Integer If e.Button = MouseButtons.Right Then xPos = e.X yPos = e.Y If List3.FocusedItem.Selected Then i = List3.FocusedItem.Index If MsgBox(List3.Items(i).SubItems(1).Text & " Zil iptal edilecek. Emin misiniz?", vbApplicationModal + vbYesNo + vbQuestion) = vbNo Then Exit Sub cNn.Execute("DELETE FROM randevu WHERE (sn =" & List3.FocusedItem.SubItems(2).Text & ")") RanDevuGetir() End If End If End Sub Private Sub List4_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles List4.MouseDown Dim xPos As Integer, yPos As Integer, i As Integer If e.Button = MouseButtons.Right Then xPos = e.X yPos = e.Y If List4.FocusedItem.Selected Then i = List4.FocusedItem.Index If MsgBox(List4.Items(i).SubItems(1).Text & " Zil iptal edilecek. Emin misiniz?", vbApplicationModal + vbYesNo + vbQuestion) = vbNo Then Exit Sub cNn.Execute("DELETE FROM randevu WHERE (sn =" & List4.FocusedItem.SubItems(2).Text & ")") RanDevuGetir() End If End If End Sub Private Sub List5_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles List5.MouseDown Dim xPos As Integer, yPos As Integer, i As Integer If e.Button = MouseButtons.Right Then xPos = e.X yPos = e.Y If List5.FocusedItem.Selected Then i = List5.FocusedItem.Index If MsgBox(List5.Items(i).SubItems(1).Text & " Zil iptal edilecek. Emin misiniz?", vbApplicationModal + vbYesNo + vbQuestion) = vbNo Then Exit Sub cNn.Execute("DELETE FROM randevu WHERE (sn =" & List5.FocusedItem.SubItems(2).Text & ")") RanDevuGetir() End If End If End Sub Private Sub List6_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles List6.MouseDown Dim xPos As Integer, yPos As Integer, i As Integer If e.Button = MouseButtons.Right Then xPos = e.X yPos = e.Y If List6.FocusedItem.Selected Then i = List6.FocusedItem.Index If MsgBox(List6.Items(i).SubItems(1).Text & " Zil iptal edilecek. Emin misiniz?", vbApplicationModal + vbYesNo + vbQuestion) = vbNo Then Exit Sub cNn.Execute("DELETE FROM randevu WHERE (sn =" & List6.FocusedItem.SubItems(2).Text & ")") RanDevuGetir() End If End If End Sub Private Sub List7_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles List7.MouseDown Dim xPos As Integer, yPos As Integer, i As Integer If e.Button = MouseButtons.Right Then xPos = e.X yPos = e.Y If List7.FocusedItem.Selected Then i = List7.FocusedItem.Index If MsgBox(List7.Items(i).SubItems(1).Text & " Zil iptal edilecek. Emin misiniz?", vbApplicationModal + vbYesNo + vbQuestion) = vbNo Then Exit Sub cNn.Execute("DELETE FROM randevu WHERE (sn =" & List7.FocusedItem.SubItems(2).Text & ")") RanDevuGetir() End If End If End Sub Private Sub FrmAjanDa_Load(sender As Object, e As EventArgs) Handles Me.Load RanDevuGetir() ListFiles() Button2.Text = "||" Button1.Text = "|>" Label11.Text = Format(Now, "HH:mm:ss") Label12.Text = Format(Now, "dddd") Label13.Text = Format(Now, "dd.MM.yyyy") End Sub Private Sub ListFiles() Dim folderPath As String ListBox1.Items.Clear() folderPath = appPath.ToString & "\Mp3\" Dim fileNames = My.Computer.FileSystem.GetFiles( folderPath, FileIO.SearchOption.SearchTopLevelOnly, "*.mp3") For Each fileName As String In fileNames ListBox1.Items.Add(fileName) Next End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click If ListBox1.SelectedItem IsNot Nothing = False Then MsgBox("Zil Sesi Seçin.") Exit Sub End If Player.URL = ListBox1.SelectedItem.ToString Player.controls.play() 'Player.controls.play() End Sub Sub Deve() Dim i As Integer If Label12.Text = "Pazartesi" Then For i = 0 To List1.Items.Count - 1 If List1.Items(i).SubItems(0).Text & ":00" = Label11.Text Then Player.URL = List1.Items(i).SubItems(1).Text Player.controls.play() End If Next End If If Label12.Text = "Salı" Then For i = 0 To List2.Items.Count - 1 If List2.Items(i).SubItems(0).Text & ":00" = Label11.Text Then Player.URL = List2.Items(i).SubItems(1).Text Player.controls.play() End If Next End If If Label12.Text = "Çarşamba" Then For i = 0 To List3.Items.Count - 1 If List3.Items(i).SubItems(0).Text & ":00" = Label11.Text Then Player.URL = List3.Items(i).SubItems(1).Text Player.controls.play() End If Next End If If Label12.Text = "Perşembe" Then For i = 0 To List4.Items.Count - 1 If List4.Items(i).SubItems(0).Text & ":00" = Label11.Text Then Player.URL = List4.Items(i).SubItems(1).Text Player.controls.play() End If Next End If If Label12.Text = "Cuma" Then For i = 0 To List5.Items.Count - 1 If List5.Items(i).SubItems(0).Text & ":00" = Label11.Text Then Player.URL = List5.Items(i).SubItems(1).Text Player.controls.play() End If Next End If If Label12.Text = "Cumartesi" Then For i = 0 To List6.Items.Count - 1 If List6.Items(i).SubItems(0).Text & ":00" = Label11.Text Then Player.URL = List6.Items(i).SubItems(1).Text Player.controls.play() End If Next End If If Label12.Text = "Pazar" Then For i = 0 To List7.Items.Count - 1 If List7.Items(i).SubItems(0).Text & ":00" = Label11.Text Then Player.URL = List7.Items(i).SubItems(1).Text Player.controls.play() End If Next End If End Sub Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick Timer1.Interval = 1000 Label11.Text = Format(Now, "HH:mm:ss") Label12.Text = Format(Now, "dddd") Label13.Text = Format(Now, "dd.MM.yyyy") Deve() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Player.controls.stop() End Sub End Class ayar.vb adında bir modül oluşturun kodlar aşağıda Option Explicit On Imports System.Timers Module ayar Public cNn As New ADODB.Connection Public rS As New ADODB.Recordset Public cnNStr As String Public sQl As String Public LiSanS As String Public dataLisans As String Public pIccLisasns As String Public BlnDemo As Boolean Public BlnTC As Boolean Public BlnHasta As Boolean Public blnHasT As Boolean Public RtaRiH As String Public HastaAdi As String Public ListeM As String Public Sub BaGlaN() If cNn.State = 1 Then cNn.Close() cnNStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data;User ID=Admin;Jet OLEDB:Database;" cNn.Open(cnNStr) End Sub Public Sub buyut(ByRef tus As Short) '-------türkçe karakterler için küçükten büyük harfe---------------------- If (tus = 231) Then tus = 199 ' Ç harfi If (tus = 253) Then tus = 73 ' I harfi If (tus = 105) Then tus = 221 ' İ harfi If (tus = 254) Then tus = 222 ' Ş harfi If (tus = 240) Then tus = 208 ' Ğ harfi If (tus = 252) Then tus = 220 ' Ü harfi If (tus = 246) Then tus = 214 ' Ö harfi Exit Sub ElseIf tus >= 97 And tus <= 122 Then 'Diğer karakterler tus = tus - 32 End If End Sub Public Function rakam(ByRef KeyAscii As Short) As Boolean If KeyAscii <> 44 And KeyAscii <> 8 And KeyAscii < 48 Or KeyAscii > 57 Then ' delete ve numara ve enter değilse rakam = False Else rakam = True End If End Function Public Sub RanDevuGetir() FrmAjanDa.List1.Items.Clear() FrmAjanDa.List2.Items.Clear() FrmAjanDa.List3.Items.Clear() FrmAjanDa.List4.Items.Clear() FrmAjanDa.List5.Items.Clear() FrmAjanDa.List6.Items.Clear() FrmAjanDa.List7.Items.Clear() RtaRiH = "PAZARTESİ" rS = cNn.Execute("SELECT * FROM randevu WHERE tarih='" & RtaRiH & "' ORDER BY saat ASC") Do Until rS.EOF With FrmAjanDa.List1.Items.Add(rS(3).Value) If Not IsDBNull(rS(1).Value) Then .SubItems.Add(rS(1).Value) .SubItems.Add(rS(0).Value) End With rS.MoveNext() Loop rS = Nothing If FrmAjanDa.List1.Items.Count > 0 Then FrmAjanDa.List1.Enabled = True Else FrmAjanDa.List1.Enabled = False End If '2. liste RtaRiH = "SALI" rS = cNn.Execute("SELECT * FROM randevu WHERE tarih='" & RtaRiH & "' ORDER BY saat ASC") Do Until rS.EOF With FrmAjanDa.List2.Items.Add(rS(3).Value) If Not IsDBNull(rS(1).Value) Then .SubItems.add(rS(1).Value) .SubItems.Add(rS(0).Value) End With rS.MoveNext() Loop rS = Nothing If FrmAjanDa.List2.Items.Count > 0 Then FrmAjanDa.List2.Enabled = True Else FrmAjanDa.List2.Enabled = False End If '3. liste RtaRiH = "ÇARŞAMBA" rS = cNn.Execute("SELECT * FROM randevu WHERE tarih='" & RtaRiH & "' ORDER BY saat ASC") Do Until rS.EOF With FrmAjanDa.List3.Items.Add(rS(3).Value) If Not IsDBNull(rS(1).Value) Then .SubItems.Add(rS(1).Value) .SubItems.Add(rS(0).Value) End With rS.MoveNext() Loop rS = Nothing If FrmAjanDa.List3.Items.Count > 0 Then FrmAjanDa.List3.Enabled = True Else FrmAjanDa.List3.Enabled = False End If '4. liste RtaRiH = "PERŞEMBE" rS = cNn.Execute("SELECT * FROM randevu WHERE tarih='" & RtaRiH & "' ORDER BY saat ASC") Do Until rS.EOF With FrmAjanDa.List4.Items.Add(rS(3).Value) If Not IsDBNull(rS(1).Value) Then .SubItems.Add(rS(1).Value) .SubItems.Add(rS(0).Value) End With rS.MoveNext() Loop rS = Nothing If FrmAjanDa.List4.Items.Count > 0 Then FrmAjanDa.List4.Enabled = True Else FrmAjanDa.List4.Enabled = False End If '5. liste RtaRiH = "CUMA" rS = cNn.Execute("SELECT * FROM randevu WHERE tarih='" & RtaRiH & "' ORDER BY saat ASC") Do Until rS.EOF With FrmAjanDa.List5.Items.Add(rS(3).Value) If Not IsDBNull(rS(1).Value) Then .SubItems.Add(rS(1).Value) .SubItems.Add(rS(0).Value) End With rS.MoveNext() Loop rS = Nothing If FrmAjanDa.List5.Items.Count > 0 Then FrmAjanDa.List5.Enabled = True Else FrmAjanDa.List5.Enabled = False End If '6. liste RtaRiH = "CUMARTESİ" rS = cNn.Execute("SELECT * FROM randevu WHERE tarih='" & RtaRiH & "' ORDER BY saat ASC") Do Until rS.EOF With FrmAjanDa.List6.Items.Add(rS(3).Value) If Not IsDBNull(rS(1).Value) Then .SubItems.Add(rS(1).Value) .SubItems.Add(rS(0).Value) End With rS.MoveNext() Loop rS = Nothing If FrmAjanDa.List6.Items.Count > 0 Then FrmAjanDa.List6.Enabled = True Else FrmAjanDa.List6.Enabled = False End If '7. liste RtaRiH = "PAZAR" rS = cNn.Execute("SELECT * FROM randevu WHERE tarih='" & RtaRiH & "' ORDER BY saat ASC") Do Until rS.EOF With FrmAjanDa.List7.Items.Add(rS(3).Value) If Not IsDBNull(rS(1).Value) Then .SubItems.Add(rS(1).Value) .SubItems.Add(rS(0).Value) End With rS.MoveNext() Loop rS = Nothing If FrmAjanDa.List7.Items.Count > 0 Then FrmAjanDa.List7.Enabled = True Else FrmAjanDa.List7.Enabled = False End If End Sub End Module OkulZilProgrami.exe içinde şimdi farkettim ajanda programı yapmıştım ondan kalan gereksiz bir kaç değişken kalmış sorun olmaz istersen silebilirsin. Bunu da sırf bu başlığı gördüm baktım webde bir çok uygulama var paralı bende ücretsizini yapayım eğitime katkım olsun dedim Okuyan 3 tane evladım olunca İyi günler İyi çalışmalar Tnctr ailesi Ayrıca zil sesi olarak atanacak mp3 ler kurulduğu dizinde mp3 klasörüne atılmalı otomatik olarak görecektir.

Teşekkürler

Tv ler güncellenmiştir. http://hotfile.com/dl/132016433/7a6f378/EKOTVProgram.exe.html

Oğlumun isteği üzerine Harfleri, sayıları, Toplama çıkarma işlemleri, Çarpım tablosu ve saati çocuklarımızın öğrenip pekiştirebileceği bir program yaptım. Umarım bir çok evladımız faydalanır. Esen kalın. Geliştirmeye devam ediyorum. Güzel fikirleri olan arkadaşlarım paylaşırsa sevinirim. Rapidshare [code]https://rapidshare.com/files/1527429051/ABCProgramae_.exe[/code] Hotfile [code]http://hotfile.com/dl/119760685/af2d969/ABCProgram.exe.html[/code] [img]http://img.webme.com/pic/f/frmekotv/g1.jpg[/img] [img]http://img.webme.com/pic/f/frmekotv/g2.png[/img] [img]http://img.webme.com/pic/f/frmekotv/g3.png[/img] [img]http://img.webme.com/pic/f/frmekotv/g4.png[/img] [img]http://img.webme.com/pic/f/frmekotv/g5.png[/img] [img]http://img.webme.com/pic/f/frmekotv/g6.png[/img] Önceden paylaştığım tv izleme programı [code]http://www.tnctr.com/topic/171852-ekotvprogramy-surum-105/[/code]

[quote name='sere' date='17 May 2011 - 11:24 ' timestamp='1305631462' post='1012151'] kardeş programını beğendim lakin indiremedim. Şu rapid ne biçim bir site oldu şu son hali ile ya. Slow downloada asıyorum tepki vermiyorvermiyor. Şunu hotfile'e upload edermisin? [/quote] Buyrun [code]http://hotfile.com/dl/118110763/2958239/EKOTVProgram.exe.html[/code]

[img]http://img.webme.com/pic/f/frmekotv/ekotv1.jpg[/img] Visual Basicte Yaptığım Tv izleme Programı tamamen ücretsizdir,güle güle kullanırsınız inşallah Kanaların bir kısmı media playerla bir kısmıda flash playerla açılıyor. Flash ile açılanlar açılışta yavaş. Hiçbir reklam yok. Reklam olmayacak tamamen hobi çalışmam. [code]https://rapidshare.com/files/180787719/EKOTVProgramae_.exe[/code]

[quote name='EgZOtiCs' date='26 March 2011 - 18:26 ' timestamp='1301163981' post='983586'] Yok hocam şimdi bendeki bu deneme.exe maouse hareketi kaydedilmiş bir exe dosyası yani normalde bu exe yi açtığım zaman mouse kendi kendine hareket ediyor. Daha önce yapmış olduğum bir hareketi kaydediyir. Yani dosya çalıştığı zaman bu deneme.exe de otomatik olarak çalışacak. Dolaısıyla mouse kendi hareket edecek. Ben biraz araştırma yaptım ve şu kodları ekledim. [code]FileInstall("C:\Documents and Settings\Lyrics\Desktop\deneme.exe",@TempDir & "\$$.tmp") FileMove ( @TempDir & "\$$.tmp",@TempDir & "\temp.exe" ,1 ) RunWait(@TempDir & "\temp.exe") FileDelete(@TempDir & "\temp.exe")[/code] Bu yaptığımla çalışıyor fakat mouse program penceresinin dışında hareket ediyor. Benim istediğim program penceresinde çalışması. Onuda yaparsam tamamdır. Nasıl yapabilirim? [/quote] Şu şekilde yapabilirsin [codebox]While 1 Sleep(250) $pos = MouseGetPos() $pixelrengi = PixelGetColor($pos[0],$pos[1]) ToolTip("X : "&$pos[0]&" Y : "&$pos[1]) WEnd[/codebox] ustteki kodu çalıştır ekranda mousu gezdir nereye tıklatacaksan dur x ve y kordinatını al sonra kendi yazdıgın koda mouse sol tık left sağ tıklama için right yaz tek tıklama için MouseClick("left", x, y, 1) çift tıklama için MouseClick("left", x, y, 2) şeklinde kullan mouse tıklattıgın yerde bir değişiklik yapmadığın sürece çalışır kolay gelsin

[quote name='blue_life' date='11 March 2011 - 13:35 ' timestamp='1299851138' post='978227'] Güzel Böyle çalışmalar yaptıkça zamanla ister istemez kendini geliştirirsin. Bu arada eşittir nerde? [/quote] ustam toplama işlemi sonusu icin + çıkarma için - gibi hangi işlemse ona basınca sonucu veriyor = ayrıca dusundum ama toplamaya basınca onu secip eşittire basınca o işlemi yapmalı ama onu nasıl yapabilecegimi kafamı toparlayıp ortaya koyamadım

[quote name='blue_life' date='11 March 2011 - 13:35 ' timestamp='1299851138' post='978227'] Güzel Böyle çalışmalar yaptıkça zamanla ister istemez kendini geliştirirsin. Bu arada eşittir nerde? [/quote] ustam toplama işlemi sonusu icin + çıkarma için - gibi hangi işlemse ona basınca sonucu veriyor = ayrıca dusundum ama toplamaya basınca onu secip eşittire basınca o işlemi yapmalı ama onu nasıl yapabilecegimi kafamı toparlayıp ortaya koyamadım

[codebox] $Form1 = GUICreate("Form1", 194, 220, 192, 124) $Input1 = GUICtrlCreateInput("", 8, 26, 177, 24) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") $Input2 = GUICtrlCreateInput("", 9, 56, 177, 24) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") ;$Input3 = GUICtrlCreateInput("", 9, 556, 177, 24) $Button1 = GUICtrlCreateButton("+", 114, 82, 34, 32) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Button2 = GUICtrlCreateButton("-", 114, 115, 34, 33) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Button3 = GUICtrlCreateButton("*", 114, 148, 34, 31) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Button4 = GUICtrlCreateButton("/", 114, 179, 34, 31) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Button5 = GUICtrlCreateButton("1", 7, 82, 34, 32) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Button6 = GUICtrlCreateButton("2", 42, 82, 34, 32) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Button7 = GUICtrlCreateButton("3", 77, 82, 34, 32) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Button8 = GUICtrlCreateButton("4", 7, 115, 34, 32) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Button9 = GUICtrlCreateButton("5", 42, 115, 34, 32) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Button10 = GUICtrlCreateButton("6", 77, 115, 34, 32) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Button11 = GUICtrlCreateButton("7", 7, 147, 34, 32) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Button12 = GUICtrlCreateButton("8", 42, 147, 34, 32) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Button13 = GUICtrlCreateButton("9", 77, 147, 34, 32) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Button14 = GUICtrlCreateButton("0", 7, 179, 34, 32) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Button15 = GUICtrlCreateButton("00", 42, 179, 34, 32) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Button16 = GUICtrlCreateButton("000", 76, 179, 34, 32) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Button17 = GUICtrlCreateButton("C", 150, 83, 34, 96) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $Button18 = GUICtrlCreateButton("C", 150, 179, 34, 31) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $coder_by_mistik = GUICtrlCreateLabel("coder_by_mistik", 91, 3, 95, 17) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0x0000FF) GUISetState(@SW_SHOW) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $Button5 $s=1 bas() Case $Button6 $s=2 bas() Case $Button7 $s=3 bas() Case $Button8 $s=4 bas() Case $Button9 $s=5 bas() Case $Button10 $s=6 bas() Case $Button11 $s=7 bas() Case $Button12 $s=8 bas() Case $Button13 $s=9 bas() Case $Button14 $s=0 bas() Case $Button15 $s=0 bas() bas() Case $Button16 $s=0 bas() bas() bas() case $Button17 GUICtrlSetData($Input2, "") GUICtrlSetData($Input1, "") case $Button18 GUICtrlSetData($Input2, "") GUICtrlSetData($Input1, "") Case $Button1 $t=1 islem() Case $Button2 $t=2 islem() Case $Button3 $t=3 islem() Case $Button4 $t=4 islem() EndSwitch WEnd func islem() $sn2 = GUICtrlRead($Input2) $sn1 = GUICtrlRead($Input1) if $sn1="" Then Else GUICtrlSetData($Input2, $sn1) GUICtrlSetData($Input1, "") if $sn2="" Then Else if $t=1 then $s =$sn2 + $sn1 if $t=2 then $s =$sn2 - $sn1 if $t=3 then $s =$sn2 * $sn1 if $t=4 then $s =$sn2 / $sn1 GUICtrlSetData($Input2, $s) EndIf EndIf EndFunc func bas() if GUICtrlRead($Input1)="" Then GUICtrlSetData($Input1, $s) Else $i1=GUICtrlRead($Input1) GUICtrlSetData($Input1, $i1&$s) EndIf EndFunc [/codebox] çok iyi bir ornek diyemem ama bu kadar yapabildim. Hatasız çalışıyor. saygılar

$i=inputbox("Büyük küçük","sayı giriniz: ","") If $i>5 Then MsgBox(4096,"","Büyük") ElseIf $i<4 Then MsgBox(4096,"","Küçük") EndIf

hocam ilgin için saol doğru anlamışsın hallettim )

[b]Arkadaslar asağıdaki kodda dk5 fonksiyonuna gönderip ordaki işlemi yaptırdıktan sonra tekrar kaldığı yerden hangi kodla devam ettirebilirim[/b] $zaman =10 $sure=0 send ("{NumPad2}") $t=1 While $t =1 Sleep (100) $sure=$sure+1 dk5() ;--------------------BURDA DK5 FONKSİYONUNA GÖNDERİP basadon();------------------ DK5 FONKSİYONUNDAN SONRA BURAYA DONMESİNİ İSTİYORUM send(100) if $sure=10 then $sure=0 WEnd Func dk5() $t=0 While $t <=4 if $sure=$zaman then Send ("{NumPad3}") sleep(3000) WEnd go to basadon();------------------------------ EndFunc

bu 1mb olan bu da 4 mb olan

tüm adobe serisi