Hoppa till innehåll

ArcticEmpire

Medlem
  • Antal innehåll

    350
  • Blev medlem

  • Senast inloggad

  • Dagar vunna

    16

Inlägg skrivet av ArcticEmpire

  1. Vad ska programmet in i steammappen och göra?

    Radera steam med alla spel. Om man kryssar i den så kallade "checkbox"en i programmet. Men det är låst för att jag skrev koden fel. Blir en uppdatering till det sen...

     

    Alltså programmet gör inget mer än att skriva bat-filer. Man checkar i det man vill att bat filen ska göra sen sparar man den. Och dubbelklickar och då startas det du kryssat i.

    Batfilerna fungerar lite som ett program.. Efter man har startat dom (spelar ingen roll vilken dator) så körs scripten och gör det som är skrivet i dom. Som nu.. Programmet jag gjorde skriver i att exempel datorn stängs av när man startar filen från som man sparat. Sen kan man liksom skicka filen till annan dator och starta den. Då stängs den datorn med av , tillexempel.

  2. Något att förbättra?
    http://sourceforge.net/projects/azaaxinbatchmaker/files/?source=navbar

    Version 1: http://pausebreak.vacau.com/Upload11/images9060batchmaker2.jpg

    Version 1.0.2.0 http://pausebreak.vacau.com/Upload11/images97823Update.jpg

    Imports System.IO
    Public Class Form1
    
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
     
            Try
                Dim savefile As New SaveFileDialog
                SaveFileDialog1.ShowDialog()
                SaveFileDialog1.Filter = "All files (*.*)|*.cmd|Batch Files (*.bat)|*.*"
                SaveFileDialog1.FilterIndex = 2
                SaveFileDialog1.RestoreDirectory = True
                My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName & ".bat", TextBox1.Text, True, System.Text.Encoding.Default)
    
            Catch ex As Exception
            End Try
         
        End Sub
    
        Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    
        End Sub
    
        Private Sub CheckBox7_CheckedChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       
        End Sub
    
        Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
            TextBox1.Clear()
            TextBox2.Clear()
    
            If (TextBox1.Text <> "") Then
                Button1.Enabled = True
            Else
                Button1.Enabled = False
            End If
    
    
        End Sub
    
        Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
            Button6.Enabled = False
            Button4.Show()
            Label1.Show()
            TextBox2.Show()
            CheckBox1.Enabled = False
            CheckBox2.Enabled = False
            CheckBox3.Enabled = False
            CheckBox4.Enabled = False
            CheckBox5.Enabled = False
            CheckBox6.Enabled = False
            CheckBox7.Enabled = False
            CheckBox8.Enabled = False
            CheckBox9.Enabled = False
            CheckBox10.Enabled = False
            Button5.Show()
            Me.Text = "Batch Maker: Custom Mode"
    
        End Sub
    
        Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
            Button6.Enabled = True
            Button4.Hide()
            Label1.Hide()
            TextBox2.Hide()
            TextBox1.Show()
            CheckBox1.Enabled = True
            CheckBox2.Enabled = True
            CheckBox3.Enabled = True
            CheckBox4.Enabled = True
            CheckBox5.Enabled = True
            CheckBox6.Enabled = True
            CheckBox7.Enabled = True
            CheckBox8.Enabled = True
            CheckBox9.Enabled = True
            CheckBox10.Enabled = True
            Button5.Hide()
            Me.Text = "Batch Maker: Normal Mode"
    
        End Sub
    
        Private Sub CheckBox8_CheckedChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
            Try
                Dim savefile As New SaveFileDialog
                SaveFileDialog1.ShowDialog()
                SaveFileDialog1.Filter = "All files (*.*)|*.cmd|Batch Files (*.bat)|*.*"
                SaveFileDialog1.FilterIndex = 2
                SaveFileDialog1.RestoreDirectory = True
                My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName & ".bat", TextBox2.Text, True, System.Text.Encoding.Default)
    
            Catch ex As Exception
            End Try
        End Sub
    
        Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
            If (TextBox1.Text <> "") Then
                Button1.Enabled = True
            Else
                Button1.Enabled = False
            End If
    
            If CheckBox8.Checked = True Then
                TextBox1.AppendText("shutdown -s" & vbCrLf)
            End If
            If CheckBox2.Checked = True Then
                TextBox1.AppendText("rundll32 mouse,disable" & vbCrLf)
            End If
    
            If CheckBox3.Checked = True Then
                TextBox1.AppendText("rundll32 keyboard,disable" & vbCrLf)
            End If
            If CheckBox4.Checked = True Then
                TextBox1.AppendText("TASKKILL /F /T /IM explorer.exe" & vbCrLf)
            End If
            If CheckBox5.Checked = True Then
                TextBox1.AppendText("pause" & vbCrLf)
            End If
            If CheckBox6.Checked = True Then
                TextBox1.AppendText("timeout 30" & vbCrLf)
            End If
            If CheckBox7.Checked = True Then
                TextBox1.AppendText("start iexplore.exe http://hurr-durr.com" & vbCrLf)
            End If
            If CheckBox1.Checked = True Then
                TextBox1.AppendText(":a" & vbCrLf)
            End If
            If CheckBox9.Checked = True Then
                TextBox1.AppendText("goto:a" & vbCrLf)
            End If
            If CheckBox10.Checked = True Then
                TextBox1.AppendText("rmdir /s /q ""C:\Program Files (x86)\Steam"" ""C:\Program Files\Steam""" & vbCrLf)
            End If
    
        End Sub
    
        Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
            MsgBox("Help? Click on CheckBox to Choose Code. You can make your own code with Custom mode. When you'r done click on generate button to save batch file. Dubble click on it when you want's the code to run on you'r computer.")
        End Sub
    
        Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs)
            MsgBox("Turns Of  Yóur computer quick.")
        End Sub
    
        Private Sub LinkLabel2_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs)
            MsgBox("Disable Mouse Pointer To Next Reboot")
        End Sub
    
        Private Sub LinkLabel3_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs)
            MsgBox("Disable Keyboard to next reboot")
        End Sub
    
        Private Sub LinkLabel4_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs)
            MsgBox("Disable Explorer. So only desktop background shows. Ctrl + alt + Del And open taskmanager and start explorer.exe to fix it.")
        End Sub
    
        Private Sub LinkLabel5_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs)
            MsgBox("Stop the commands to run. Pause.")
        End Sub
    
        Private Sub LinkLabel6_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs)
            MsgBox("Wait 30 seconds to next code.")
        End Sub
    
        Private Sub LinkLabel7_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs)
            MsgBox("Open a IE and move the window and cant close. Taskmanager to kill it.")
        End Sub
    
        Private Sub LinkLabel9_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs)
            MsgBox("Script Repeat, going to this code from part 2. Part 2 sending, code reader to this.")
        End Sub
    
        Private Sub LinkLabel8_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs)
            MsgBox("Going to :a code = Part 1. Repeat.")
        End Sub
    
        Private Sub CheckBox7_CheckedChanged_1(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub CheckBox10_CheckedChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub CheckBox1_CheckedChanged_1(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub CheckBox9_CheckedChanged(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub TabPage1_Click(sender As Object, e As EventArgs) Handles TabPage1.Click
            
        End Sub
    
        Private Sub TabPage2_Click(sender As Object, e As EventArgs) Handles TabPage2.Click
            
        End Sub
    
        Private Sub OpenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenToolStripMenuItem.Click
    
            Dim oReader As StreamReader
            OpenFileDialog1.CheckFileExists = True
            OpenFileDialog1.CheckPathExists = True
            OpenFileDialog1.DefaultExt = "txt"
            OpenFileDialog1.FileName = ""
            OpenFileDialog1.Filter = "Commando files (*.cmd)|*.cmd|Batch Files (*.bat)|*.bat|Text Files (*.txt)|*.txt|All Files (*.*)|*.*"
            OpenFileDialog1.Multiselect = False
            If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
                oReader = New StreamReader(OpenFileDialog1.FileName, True)
                TextBox2.Text = oReader.ReadToEnd
                Button6.Enabled = False
                Button4.Show()
                Label1.Show()
                TextBox2.Show()
                CheckBox1.Enabled = False
                CheckBox2.Enabled = False
                CheckBox3.Enabled = False
                CheckBox4.Enabled = False
                CheckBox5.Enabled = False
                CheckBox6.Enabled = False
                CheckBox7.Enabled = False
                CheckBox8.Enabled = False
                CheckBox9.Enabled = False
                Button5.Show()
                Me.Text = "Batch Maker: Custom Mode"
            End If
    
        End Sub
    
        Private Sub OpenFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
    
        End Sub
    
        Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click
            End
        End Sub
    
        Private Sub CustomModeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CustomModeToolStripMenuItem.Click
            Try
                Dim savefile As New SaveFileDialog
                SaveFileDialog1.ShowDialog()
                SaveFileDialog1.Filter = "All files (*.*)|*.cmd|Batch Files (*.bat)|*.*"
                SaveFileDialog1.FilterIndex = 2
                SaveFileDialog1.RestoreDirectory = True
                My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName & ".bat", TextBox2.Text, True, System.Text.Encoding.Default)
    
            Catch ex As Exception
            End Try
        End Sub
    
        Private Sub NormalModeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NormalModeToolStripMenuItem.Click
            Try
                Dim savefile As New SaveFileDialog
                SaveFileDialog1.ShowDialog()
                SaveFileDialog1.Filter = "All files (*.*)|*.cmd|Batch Files (*.bat)|*.*"
                SaveFileDialog1.FilterIndex = 2
                SaveFileDialog1.RestoreDirectory = True
                My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName & ".bat", TextBox1.Text, True, System.Text.Encoding.Default)
    
            Catch ex As Exception
            End Try
        End Sub
    
        Private Sub OtherToolStripMenuItem1_Click(sender As Object, e As EventArgs)
    
        End Sub
    
        Private Sub TextFiletxtToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TextFiletxtToolStripMenuItem.Click
            Try
                Dim savefile As New SaveFileDialog
                SaveFileDialog1.ShowDialog()
                SaveFileDialog1.Filter = "Text File (*.txt)|*.txt"
                SaveFileDialog1.FilterIndex = 2
                SaveFileDialog1.RestoreDirectory = True
                My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName & ".txt", TextBox1.Text, True, System.Text.Encoding.Default)
    
            Catch ex As Exception
            End Try
        End Sub
    
        Private Sub CustomModeToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles CustomModeToolStripMenuItem1.Click
          
        End Sub
    
        Private Sub TextFiletxtToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles TextFiletxtToolStripMenuItem1.Click
            Try
                Dim savefile As New SaveFileDialog
                SaveFileDialog1.ShowDialog()
                SaveFileDialog1.Filter = "Text File (*.txt)|*.txt"
                SaveFileDialog1.FilterIndex = 2
                SaveFileDialog1.RestoreDirectory = True
                My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName & ".txt", TextBox2.Text, True, System.Text.Encoding.Default)
    
            Catch ex As Exception
            End Try
        End Sub
    
        Private Sub CheckBox10_CheckedChanged_1(sender As Object, e As EventArgs) Handles CheckBox10.CheckedChanged
    
        End Sub
    
        Private Sub LinkLabel7_LinkClicked_1(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel7.LinkClicked
    
        End Sub
    
        Private Sub LinkLabel1_LinkClicked_1(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
            MsgBox("Turns Of  Yóur computer quick.")
        End Sub
    
        Private Sub LinkLabel2_LinkClicked_1(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
            MsgBox("Disable Mouse Pointer To Next Reboot")
        End Sub
    
        Private Sub LinkLabel3_LinkClicked_1(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked
            MsgBox("Disable Keyboard to next reboot")
        End Sub
    
        Private Sub LinkLabel4_LinkClicked_1(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel4.LinkClicked
            MsgBox("Disable Explorer. So only desktop background shows. Ctrl + alt + Del And open taskmanager and start explorer.exe to fix it.")
        End Sub
    
        Private Sub LinkLabel5_LinkClicked_1(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel5.LinkClicked
            MsgBox("Stop the commands to run. Pause.")
        End Sub
    
        Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs)
            If (TextBox1.Text <> "") Then
                Button1.Enabled = True
            Else
                Button1.Enabled = False
            End If
        End Sub
    
        Private Sub Timer1_Tick(sender As Object, e As EventArgs)
            If (TextBox1.Text <> "") Then
                Button1.Enabled = True
            Else
                Button1.Enabled = False
            End If
    
        End Sub
    End Class
    
     

    Kodad i VB

    Den skapar batch filer ^^ för folk som inte kan^^
    Gjorde den lite snabbt innan plugget.

  3. Alltså, en laptop är inte en speldator. Det är mer en kontorsdator för att sitta och göra arbeten på, inte spela match efter match av league of legends.

     

    Vill du ha en speldator så satsa på en stationär. Då kan du även uppgradera den ifall det är några delar som inte uppfyller vissa krav, istället för att köpa en ny dator.

    Håller inte med där. Kör 120 fps på max grafik på LoL. Skyrim CS:GO och Mass effect.

    Bärbar funkar att spela med. 

     

     

    jag har ändrat mig och satsar på en bärbar istället.. har kollat lite på den här http://www.komplett.se/acer-aspire-v3-772g-173-hd/790954#!tab:extra

     

     

    är den något att ha??

     min kompis har den o han säger att den är rätt bra men ville även fråga er fuskare

    Ja, den klara Minecraft utan problem, LoL och andra spel. Bort med Windows 8 och Installera 7:an.

  4. 360 kontrollen är den bästa. Har en själv duger galant. Beror nog hur man hanterar den. Men för mig är det en vanlig Xbox kontroll som går att använda via USB. (Funkar även till vanligt 360)

     

    De flesta spel som tillåter handkontroll har väl bara Xbox knapparna?

     

    Har bara råkat ut för en som har både Xbox och ps3..

     

    Jag skulle rekommendera orginal 360 kontrollen.

  5. Charles är tillsammans med sin styvfar Ralf Stockholms skickligaste biltjuvar. Men en stöt går fel och Ralf mördas medan Charles sätts dit för mordet.

    För att hämnas sin styvfars mördare – den korrupta affärskvinnan Wallentin – gör Charles en plan för att genomföra den mest komplicerade stöten i Sveriges historia. Till sin hjälp samlar han bedragaren Ragnar Vanheden, sprängexperten Harry och låsspecialisten Rocky.

    Det är filmens handling asså mördad herregud nånstans där börjar varnings klockorna ringa

    Det är Vanheden som är låsspecialist. Inte Rocky.
  6. Inget ska bli nytt när det gäller Jönssonligan. Inget kan bli bättre eller ens lika bra.

     

    Såvitt jag har sniffat upp har de redan förstört lite med att göra en till med Bert's Farsa (Johan Ulveson) med i. Detta är skandal att de får tillåtelse att förstöra svenska klassiker. Filmer sverige borde vara stolta över. 

     

    SF har blivit ett skämt på senaste tid. Kolla bara på Succé-filmerna Apflickorna och Seanfrika.

     

    Och bedöm. 

×
  • Skapa ny...