BitCoin What Is It And How To Use BitCoin

Well as some people have heard there is a new digital currency out there and it is called BitCoin. Bitcoin is completely anonymous way to accept and get paid money. This new virtual currency is very interesting. You may ask, how does one start with BitCoin.

The first thing you will need to do is get a BitCoin wallet.

You can get your wallet setup here at https://blockchain.info/


Now go to BitVisitor and enter your wallet. Here you will get paid just to keep your browser open.


Here is another site to earn Bitcoin, check out coinhd.com Here you get paid for watching videos etc...

Do you have a website or blog, you can earn bitcoin for have ad links by going to bitclix.com the payout is really good and better than Good ad words.

Here is a great place to buy bitcoin with a credit card, simple verification, all done over the web:
just click here to visit CoinMX

How to consume a web service in Microsoft Word using VBA

A couple of months ago I was asked to take on a project which would use a word document to place an order over the web. The word document would need to post the order to a web service and show a message box to the end user,  letting them know that the order was successfully submitted and return an order number or that an error has occurred and what the error was.

The requirements for my project were as such:

• Create a word document that will capture several fields which will be populated by another proprietary software.(Using Word 2010)
• Create a method that will take the data from the form and put it into an XML envelope to be sent via SOAP.
• Keep the document as backward compatible as possible.
• Submit the SOAP envelope to the web service and handle error or successful submission.

Since I have never consumed or worked with web services in Word or VBA the first thing I did was hit the search engines and found nothing but useless complicated outdated examples on how to consume a web service using VBA in Microsoft Word.

I see that Microsoft recommends using Web Service References Tool:

Calling XML Web Services from Office VBA Using the Web Service References Tool

Which leads to a dead link.:

Microsoft® VBA Web Service References Tool

Plus my concern with using the Web Service References Tool limits the version of Microsoft Word, and I would like to support back to at least Word 2000.

So after much research and trial and error I decided to use SOAP utilizing Microsoft XML 3.0. You could use the same code with Microsoft XML 2.0 also, but I do not have the library available on my current machine, so 3.0 will do.

For demonstration purposes, I will simplify the form for this example.

Here is the code to  create your XML Doc:

Private Function fnBuildXML(ByVal blnContin As Boolean, ByVal objParams As OrderParameters) As DOMDocument

   Set MyParams = New OrderParameters
   Dim objDom As DOMDocument
   Dim objRootElem As IXMLDOMElement
   Dim objRootElem2 As IXMLDOMElement
   Dim objMemberElem As IXMLDOMElement
   Set objDom = New DOMDocument
  
    With MyParams
       
        ' Creates root element
        Set objRootElem = objDom.createElement("myOrderParameters")
        objDom.appendChild objRootElem

 '<PlaceOrder xmlns="http://webservice.com/">
   Dim mystring As String
        ' Creates Member element
        Set objMemberElem = objDom.createElement("OrderTaxSearch")
        objRootElem.appendChild objMemberElem
        mystring = ff("Check1").Result
        objMemberElem.Text = CStr(ff("Check1").Result)
    
        Set objMemberElem = objDom.createElement("OrderAssessmentSearch")
        objRootElem.appendChild objMemberElem
        objMemberElem.Text = ff("Check2").Result
      
        Set objMemberElem = objDom.createElement("OrderUtilitiesSearch")
        objRootElem.appendChild objMemberElem
        objMemberElem.Text = ff("Check3").Result

End If
End With
Set fnBuildXML = objDom
Set objDom = Nothing
End Function

Now that was simplified to just give an idea how to create the XML doc for the SOAP envelope. Here is example code to communicate with the web service:

    Dim envelope As String
    Dim http As New MSXML2.XMLHTTP
    Dim URL As String

    URL = "http://WEBSERVICE.net/neworders.asmx?op=PlaceOrder"

    envelope = "<?xml version='1.0' encoding='UTF-8'?>" & _
    "<soap:Envelope xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xsd='http://www.w3.org/2001/XMLSchema' " & _
    "xmlns:soap='http://schemas.xmlsoap.org/soap/envelope/'>" & _
    "<soap:Body>" & "<PlaceOrder xmlns='http://WEBSERVICE.com/'>" & CStr(objDom.XML) & "</PlaceOrder></soap:Body></soap:Envelope>"

    Call http.Open("POST", URL, False) //make sure to set async to FALSE!!!!!
    http.SetRequestHeader "Content-Type", "text/xml"

        envelope = Replace(envelope, "True", "true")
        envelope = Replace(envelope, "False", "false")
                http.Send (envelope) //Here you are sending the SOAP envelope to the webservice
                MsgBox (http.responseText) //Display results from service
          
      Set http = Nothing
End With
      Set MyParams = Nothing

There ya go, please note this line:
Call http.Open("POST", URL, False)

Make sure to set varAsync to FALSE. As the default is true, word does not handle Async with web services right from what I could tell and this is defaulted to true, so your code will fail if you try to read the response, especially the longer the response. Let it wait, so set this to false, this really caused me a lot of issues until I set it to false. more about  MSXML2.XMLHTTP  here:

XMLHttpRequest object

Hope this helps you save some time, and if you have any questions, please let me know.






Buy Me a Beer

New Job and new articles coming

I wanted to drop by and say hi to everyone and let you all know that I am sorry I am just answering some posts.

I started a new job a few months ago and just haven't had the time to blog. I am still working at the wonderful company that employs me *Dream Job* but have had the urge to spend some more time blogging again. To those I am just replying to, sorry for the delay, but I am back and if anyone ever needs anything, please just drop me a line.

Jim

BTW we have finally hit 40K views as of this month. I am so happy that the information here has been helping people. If there is anything you would ever like to see here, please feel free to drop me a line.

How to watch Amazon video on a rooted Amazon Kindle

I have noticed that sometimes I cannot watch my Amazon Prime videos on a rooted kindle fire. I then noticed that with two apps, I could watch these movies, sometimes, but then sometimes it just wouldn't work, so here I will detail the two apps you will need and the exact steps to easily without Amazon Prime Videos on your Kindle Fire.

You will need to grab the following file from google play or search the web for the apk file. The program is called:

Voodoo OTA RootKeeper

You also have another program called Superuser which was installed when you rooted.

Now, go to your Amazon Video and try to watch one of the prime videos. You will notice your "Watch now" button is greyed out and you cannot click it to watch your Amazon prime videos.

Now first thing you will need to do is tap on the little gear in the upper left hand corner. Once you tap that, a menu will come up. Select More.

Once you tap on More, you will be at the settings screen.

Now tap Applications. By default it shows you your running applications, which is exactly what we want. Now tap on Amazon Video. Once that comes up, tap on Clear Data under the storage section.

Now once you have done that go back to your home screen and launch the Voodoo OTA Root Keeper. There you will want to click on Protect root, once you tap that tap on Temp Unroot "Keeps Backup"

Now go back to your home screen and launch the Amazon Videos.

You will now see you can watch your Prime or purchased videos without any issue. Now, here is the thing you can watch all you want. You may even go back and restore root in Voodoo OTA Root Keeper. Then continue watching your videos.

Everything will be fine, unless you stop the Amazon Video application, or reboot your Kindle Fire. If you do this, just go back into Voodoo OTA Root Keeper and temp unroot again, but make sure to follow these steps again, as you must kill the amazon video application before you remove root, as it does a root check on launch.

Enjoy..,.

Buy Me a Beer

Sign up for Telerik’s Q2’12 Webinar Week, see what’s new and win a license!

 

Telerik has announced Q2 2012 Webinar week. You can sign up at the link above or by clicking Here . One lucky person will win more than $2,000 worth of software just for attending, so make sure you get on board and sign up.

Rooting the Kindle Fire Update for 6.3

As some of you who have rooted your Kindle in the past, have recently had an issue when 6.3 is applied.
If you have rooted your Kindle the update breaks your Kindle Fire in a strange way.
For me, it would power off then reboot to a little Android robot with an exclamation point.

Well there are many updates out there to Root your Kindle running the 6.3 software, but the easiest I have found is the following images from this post: http://forum.xda-developers.com/showthread.php?t=1569298

Thanks to eldarerathis.

You simply download the image and apply the ROM and your Kindle Fire will be rooted again, until the next Kindle Fire Update.

Telerik Announces Q1 Webinar week

Telerik has announced a full week of webinars, you can sign up here:

http://www.telerik.com/support/webinars.aspx

Everything from KendoUI to Sitefinity...