Mensajes

muy complicado el codigo.
yo "supuestamente" no necesito disfrasarme de nada.
Es una api publica 

el post de datos esta bien pero me debuelve que le estoy errando en la peticion POST.

asi estan bien los comandos que tengo escritos?

Lee un poco sobre el protocolo HTTP y veras

Ya lei todo pero sigo sin entender como hacerlo siquiera manualmente.

http://en.wikipedia.org/wiki/POST_%28HTTP%29
http://en.wikipedia.org/wiki/Hypertext_Transfer_Protocol

eso lei
sigo sin entender.
como se supone que es

Como corno le pido POST a esa URL?
http://pastebin.com/api_public.php

expliquenme



haciendo prueva y error di de cara contra este codigo

Código (vb) [Seleccionar] Expandir

   Const sURL      As String = "http://pastebin.com/api_public.php"
   Dim oWinHTTP    As Object 'As New WinHttp.WinHttpRequest

   Set oWinHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")

   With oWinHTTP
       Call .Open("POST", sURL, False)
       Call .Send("paste_code=Robochot")
       MsgBox .responseText, vbInformation
   End With
   
   Set oWinHTTP = Nothing

pero me sigue devolviendo error
ademas estoy deduciendo que .open pide los sig parametros Tipo (POST) , URL y NUSEQUE pero encontre que va en false.

AYUDENME



EDITO 2

Encontre los comandos del objeto raro ese
http://www.neilstuff.com/winhttp/

pero sigo sin entender porque no anda :S

Hola
Quiero armar un programa que pegue un texto X en alguna pagina como Pastebin.com o tinypaste.com
Las dos tienen apis.
http://tinypaste.com/api/doc/create
http://pastebin.com/api.php

Pero no entiendo ni cuarto de PHP asi que toy bastante frito.

Lo unico que tengo es el codigo de karckrak para postear en twitter y tampoco lo entiendo >.<


aca les dejo la funcion que armo karckrak para el tweetwlm

Código (vb) [Seleccionar] Expandir


Public Sub TweetIt(ByVal sStr As String)
    Const sURL      As String = "http://api.twitter.com/1/statuses/update.xml?status="
    Dim oWinHTTP    As Object 'As New WinHttp.WinHttpRequest

    Set oWinHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")

    With oWinHTTP
        Call .Open("POST", sURL & sStr)
        Call .SetCredentials(App.ProductName, App.Comments, 0)
        Call .Send
    End With
   
    Set oWinHTTP = Nothing
End Sub


Gracias por la ayuda

QUE IRA! ES HORRIBLE LABURAR CON HOOKS!

Tenia casi listo el codigo para invertir un solo eje y le erre en una variable CAPUM

Colapso VB

A empezar de nuevo

lo hice desde la bios y cambiando el ancho de bus y la deje estable con un overclock de 104 % de la capacidad original.

Si le pido mas no funciona y tengo miedo de subir el vcore porque me noseadonde lei que se te puede freir la tarjeta de video.

Ahora me fijo que modelo de placa es porque me acuerdo que era asrock pero ni ahi el numero.

Gracias.

Clavadisimo que la tengo que limpiar pero no tengo Soplete Compresor en casa ademas que todavía soy muuuy nabo con los 16 años de bol** que tengo para andar desarmando el cooler del micro y cambiar la pasta y me da miedo pifiarle y quemar toodo.

Gracias igual por el consejo

hola
estuve leyendo por ahi que para mantener mas estable el procesador cuando overclockeo tengo que subir el voltaje.

eso esta bien
pero tambien lei que si no tengo cuidado puedo quemar la placa de video que tengo puesta porque el voltaje aumenta todo parejo >.<

Me gustaria saber si eso va por modelo de placa, si es un software, desde bios o como hago para no quemar todo lo demas

Muchas Gracias

EDITO: me olvidaba, la compu es medio viejita y la placa de video es AGP

esto es lo que tiene mi pc vieja porque se calentaba mucho.

Mira...



Chan!

Si, es de un cajero automatico y funciona a 220 V
Encontro mi viejo un dia un cajero todo hecho bolsa y vio que el fan parecia sano.
Lo saco y despues lo mutamos en eso.
quedo re bien y sopla una barbaridad el problema es el ruido que mete >.<
(lo negro que se ve es un filtro de aire para no meterle taaaaanta mugre)


Aprovecho para preguntar si puedo poner fotos de modding aca

Saludos

El lParam tiene las coordenadas de X del cursor.

pero sigo sin entender
no se como hacer

Funsionaria si hago que cuando se mueva el mouse cursor valla a la diferencia entre el lPram actual y el antiguo menos el ancho total de la pantalla?

Hola.
Estoy tratando de hacer algo que invierta los ejes del raton.
osea que si voy a la derecha la flechita valla a la izquierda y etc.

Tengo el codigo Choreado Prestado del NRC de Psyke con hook al mouse pero ni idea como hacer

puedo tomar la poscicion actual del cursor y hacerlo saltar a una.

osea, los comandos los tengo, me falta cabeza de programador.

Gracias por la ayuda.

Codigo del hook al mouse

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Declare Function SetWindowsHookEx Lib "user32.dll" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32.dll" (ByVal hHook As Long) As Long

Dim hHook As Long

Public Sub StartHook()
    hHook = SetWindowsHookEx(14, AddressOf MouseProc, App.hInstance, 0)
End Sub

Public Sub StopHook()
    Call UnhookWindowsHookEx(hHook)
End Sub

Private Function MouseProc(ByVal nCode As Long, ByVal wParam As Long, lParam As Long) As Long
    'On Error Resume Next
    If wParam = 516 Then 'si sirve de algo el wParam cuando se mueve el mouse es 512
      Form1.Print "CLICK BOTON DERECHO"
    ElseIf wParam = 517 Then Form1.Print "SOLTÓ BOTON DERECHO"
    ElseIf wParam = 513 Then Form1.Print "CLICK BOTON IZQUIERDO"
    ElseIf wParam = 514 Then Form1.Print "SOLTÓ BOTON IZQUIERDO"
    ElseIf wParam = 519 Then Form1.Print "CLICK BOTON MEDIO"
    ElseIf wParam = 520 Then Form1.Print "SOLTÓ BOTON MEDIO"
    End If
   
    Form1.Caption = wParam
End Function

Este es el codigo de pruebas que tengo en el form.

Código (vb) [Seleccionar] Expandir

Option Explicit
Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "User32" (ByVal X As Long, ByVal Y As Long) As Long

'\\Variables
Private Type POINTAPI
    X As Long
    Y As Long
End Type

Dim pt As POINTAPI
Dim Que As Variant
Dim cX As Integer, cY As Integer
Private Sub Command1_Click()
   GetCursorPos pt
   cX = pt.X: cY = pt.Y
   Command1.Caption = cX & ";" & cY
End Sub

Private Sub Form_Load()
  Me.AutoRedraw = True
  StartHook
End Sub
Private Sub Form_Unload(Cancel As Integer)
  StopHook
End Sub

Cuando apretas el boton Command1 cambia su caption a las coordenadas del cursor
Para hacer "saltar" el cursor es

Código (vb) [Seleccionar] Expandir

SetCursorPos [X,Y]