|
1063
|
Programación / Programación General / Re: Me enseñan códigos para autoclicks?
|
en: 16 Marzo 2013, 10:43 am
|
Aquí tienes un simple código de un Autoclick Public Class Form1 Private Declare Sub mouse_event Lib "user32" (ByVal dwflags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dwExtraInfo As Long) Private Const mouseclickup = 4 Private Const mouseclickdown = 2 Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Windows.Forms.Cursor.Position = New Point(Windows.Forms.Cursor.Position.X, Windows.Forms.Cursor.Position.Y) Timer1.Interval = NumericUpDown1.Value Label1.Text = Windows.Forms.Cursor.Position.X Label2.Text = Windows.Forms.Cursor.Position.Y
Windows.Forms.Cursor.Position = New Point(TextBox1.Text, TextBox2.Text)
mouse_event(mouseclickdown, 3, 7, 1, 2) mouse_event(mouseclickup, 2, 5, 9, 3) mouse_event(mouseclickdown, 3, 7, 1, 2) mouse_event(mouseclickup, 2, 5, 9, 3)
Windows.Forms.Cursor.Position = New Point(Label1.Text, Label2.Text) End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick Dim hotkey As Boolean hotkey = GetAsyncKeyState(Keys.F1) If hotkey = True Then Timer1.Start() Dim hotkey1 As Boolean hotkey1 = GetAsyncKeyState(Keys.F2) If hotkey1 = True Then Timer1.Stop() End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick Dim Posicion As Boolean Posicion = GetAsyncKeyState(Keys.F3) If Posicion = True Then TextBox1.Text = MousePosition.X : TextBox2.Text = MousePosition.Y End If If Posicion = False Then End If End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End Sub End Class
|
|
|
1067
|
Foros Generales / Foro Libre / Re: Que colores me recomendarian para un foro :3
|
en: 26 Febrero 2013, 09:29 am
|
Me gusta, intuitivo, ordenado y formal. Estos diseños siempre me gustaron, yo digo que asi se ve muy bien. De todas maneras de que vale si el diseño es genial y el contenido es ****? Solo digo xD que no importa a tal grado el diseño si se toma en cuestión el contenido, fijate en eso. Saludos y suerte
Foro con gran contenido + buen diseño creo que es triunfo o tiene mas posibilidades
|
|
|
1068
|
Programación / Desarrollo Web / Re: Ayuda con un dominio porfavor
|
en: 23 Febrero 2013, 18:10 pm
|
me alegra ver q a pesar de ser "menor de edad" decidiste seguir mi consejo, definitivamente ese host gratuito no da para crear un foro. Y porq no lo empiezas de cero nuevamente???? en fin... para migrar smf (espero no equivocarme q es lo que quieres), haz un backup, y lo subes por el ftp al nuevo host, usa phpmyadmin, adminer, navicat...(para gustos hay colores) esto para la database, y bueno ya solo falta repair_settings.php Pero insisto instala todo de cero nuevamente, bueno ya es cosa tuya. Salu2 y muchos exitos con tu proyecto Ya está todo hecho de nuevo llevo unas 4 horas o así y el dominio en 24 horas estará
|
|
|
1069
|
Foros Generales / Foro Libre / Re: Que colores me recomendarian para un foro :3
|
en: 23 Febrero 2013, 16:29 pm
|
Este último podría funcionar, yo tenía una web así pero tirando a un marroncete bastante claro que destacaba mucho, no la subí pero estéticamente quedaba bien y no era pesada para la vista.
Bueno ya compre el dominio el foro está subido solamente me quedan repasar unas cosillas me dijieron que tarda 24H en que las DNS esten bien
|
|
|
1070
|
Programación / Desarrollo Web / Ayuda con un dominio porfavor
|
en: 23 Febrero 2013, 14:12 pm
|
Compré un dominio .com y tengo un hosting gratuito eshost.es quiero que al meterte en mi dominio .com coja los archivos del hosting gratuito el dominio lo compre en dondominio.com
|
|
|
|
|
|
|