Particle
Active Members-
Posts
103 -
Joined
-
Last visited
About Particle
- Birthday 05/04/1987
Profile Information
-
Location
Southlake, Tx
Particle's Achievements
Adventurer (3/7)
0
Reputation
-
I been searching through OLE/COM Object Viewer, still no success yet. Tried this piece of code, but it didn't work: ObjCreate("QBPOSXMLRPLib.RequestProcessor") Does anyone know how to make qbXML work in autoit??
-
Well I've been busy recently, but now i'm back revisiting this project. Once again i'm using Quickbooks Pro 2009 with SDK 10.0. When I run the VB6 SDK Test program from their website it works just fine. I cannot figure out how to get the object to create in Au3. I've tried all sorts of ways to get this to work and every single one fails. I need some major help please!!! Here is my Au3 test file: #RequireAdmin $session = ObjCreate("QBXMLRP2Lib.RequestProcessor2") If Not IsObj($session) Then MsgBox(0, "ERROR", "Unable to create object.") Exit EndIf Here are a few that i've tried that didn't work: ObjCreate("QBXMLRP2Lib.RequestProcessor2.1") ObjCreate("QBXMLRP2Lib.RequestProcessor2") ObjCreate("QBXMLRP2Lib") ObjCreate("QBXMLRP") ObjCreate("QBXMLRP2") Here is the working VB6 code I tried to interpret (Note: This code is from the SDK Test I linked to their website above): Attribute VB_Name = "qbooks" ' ' Copyright © 2002-2010 Intuit Inc. All rights reserved. ' Use is subject to the terms specified at: ' http://developer.intuit.com/legal/devsite_tos.html ' ' $Id: qbooks.bas,v 1.1 2002/08/05 12:55:40 giza Exp $ ' Option Explicit ' ' Deliver the qbXML request to QuickBooks and return the ' response. ' Public Function post(xmlStream As String) As String On Error GoTo errHandler ' Open connection to qbXMLRP COM Dim qbXMLRP As New QBXMLRP2Lib.RequestProcessor2 Dim connType As QBXMLRP2Lib.QBXMLRPConnectionType connType = localQBD If (UIForm.UseQBOE) Then connType = remoteQBOE End If qbXMLRP.OpenConnection2 "", "SDKTest", connType ' Begin Session ' Pass empty string for the data file name to use the currently ' open data file. Dim ticket As String ticket = qbXMLRP.BeginSession("", QBXMLRP2Lib.qbFileOpenDoNotCare) ' Send request to QuickBooks post = qbXMLRP.ProcessRequest(ticket, xmlStream) ' End the session qbXMLRP.EndSession ticket ' Close the connection qbXMLRP.CloseConnection Exit Function errHandler: post = "" Log.out (Err.Description) End Function Someone please help
-
I've been still trying to get this to work, no success. I'm beginning to believe Au3 can't do it for some odd reason. It seems that the example sources in VB6 and C++ work just fine though... Has anyone figured out a solution?
-
I still don't understand what's going on, the PDF guide lays it out pretty easily on how it's to be done. From QBSDK_ProGuide.pdf: When I try to interpret the VB to Au3 (and assuming this is correct for creating the object part): $session = ObjCreate("QBXMLRP2Lib.RequestProcessor2") If Not IsObj($session) Then MsgBox(0, "ERROR", "Unable to create object.") Exit EndIf It errors when I run the Au3. I've reinstalled QuickBooks Pro 2009, reinstalled QBSDK, ran the reboot.bat in QB2009 folder, ran the QBXMLRP2Installer (C:\Program Files (x86)\Intuit\IDN\QBSDK10.0\tools\installers), and restarted computer... Yet it still errors. Can someone help?
-
Okay thanks, I'll be around all day so I will try everything I can think of. Must be something small I'm overlooking.
-
Yeah I tried that too, still not working...
-
Yes, I tried that and just tried it again to verify. It too does not work.
-
Basically, I can't seem to get the object to create successfully. I've looked at the SDK guide and Au3 forums and I have Quickbooks SDK 10.0 installed, but when trying to read and interpret the VB code from the guide to access Quickbooks using qbXML it doesn't work. Here is the vb portion: Dim MyQbXMLRP2 As QBXMLRP2Lib.RequestProcessor2 Set MyQbXMLRP2 = New QBXMLRP2Lib.RequestProcessor2 And when I try to run this code it errors: $session = ObjCreate("QBXMLRP2Lib.RequestProcessor2") If Not IsObj($session) Then MsgBox(0, "ERROR", "Unable to create object.") Exit EndIf Is there something i'm missing, doing, or interpreting wrong? (Note: I've also tried $session = ObjCreate("QBXMLRP2Lib") and that didn't work either)
-
I'm not the best at VB6 so I have a hard time interpreting and converting to autoit3. So I just need a simple question answered, if this conversion is correct or not and if not what would be the correct conversion. VB Public Declare Sub double_hash_password Lib "libbnet.dll" (ByVal sPassword As String, ByVal lClientToken As Long, ByVal lServerToken As Long, ByVal sBufferOut As String) Dim HashCode As String * 20: double_hash_password Password, ClientToken, ServerToken, HashCode Au3 Local $HashCode = DllCall("libbnet.dll", "str", "double_hash_password", "Password", "ClientToken", "ServerToken", "HashCode") Hope someone can help!
-
I am writing a program for a friend and when I do a test run I get this error: Here is the code: #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <ListViewConstants.au3> #include <WindowsConstants.au3> #Include <GuiListView.au3> #Include <File.au3> #include <IE.au3> $Form1 = GUICreate("Multi-Zip", 233, 226, 575, 174) $ListView1 = GUICtrlCreateListView("Zip Codes|Income", 80, 8, 146, 190, -1, BitOR($WS_EX_CLIENTEDGE,$LVS_EX_GRIDLINES)) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 65) GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 75) $Button1 = GUICtrlCreateButton("Load", 8, 16, 67, 25, $WS_GROUP) $Button2 = GUICtrlCreateButton("Clear", 8, 48, 67, 25, $WS_GROUP) $Button3 = GUICtrlCreateButton("Save", 8, 80, 67, 25, $WS_GROUP) $Button4 = GUICtrlCreateButton("Run", 8, 112, 67, 25, $WS_GROUP) $Button5 = GUICtrlCreateButton("Stop", 8, 144, 67, 25, $WS_GROUP) $Button6 = GUICtrlCreateButton("Exit", 8, 176, 67, 25, $WS_GROUP) $Checkbox1 = GUICtrlCreateCheckbox("Notify upon Completion", 86, 201, 137, 17) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE, $Button6 Exit Case $Button1 $Open = FileOpenDialog("Open Txt File", @DesktopDir, "Text Files (*.txt)|All Files (*.*)", 3, "", $Form1) If Not @error Then Dim $fArray $TXT = FileOpen($Open,0) _FileReadToArray($TXT,$fArray) For $x = 1 To $fArray[0] _GUICtrlListView_AddItem($ListView1,$fArray[$x]) Next FileClose($TXT) EndIf EndSwitch WEnd and the text file i try to load: What am I doing wrong?
-
Bump. Would it be something with StringFormat? Or is it even possible to begin with?
-
Is it possible to insert a hyperlink text in an edit box?
-
Is it possible to set text color for a specific column/subitem? _GUICtrlListView_SetTextColor didn't give me much input in the help file.
-
Using GUICtrlCreateMenu as a MenuItem
Particle replied to Particle's topic in AutoIt GUI Help and Support
thanks