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?

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

    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

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

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.

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

SetCursorPos [X,Y]