Dev {Tricks}

You are here: Home / Archives for dev

by Leave a Comment

Track WooCommerce external/affiliate product link clicks in Google Analytics

  1. Install Google Analytics Plugin
  2. Add following code snippet in functions.php 
    /**
     * Track external/affiliate link clicks snippet
     */

    function candc_track_affiliate_clicks_script() {
    ?>
    <script>
    ;
    ( function( $ ) {
      "use strict";

      // current page host
      var baseURI = window.location.host;

      // click event on body
      $("p.cart").on("click", function(e) {

    	// abandon if link already aborted or analytics is not available
    	if (e.isDefaultPrevented() || typeof ga !== "function") return;

    	// abandon if no active link or link within domain
    	var link = $(e.target).closest("a");
    	if (link.length != 1 || baseURI == link[0].host) return;

    	// cancel event and record outbound link
    	e.preventDefault();
    	var href = link[0].href;
    	ga('send', {
    	  'hitType': 'event',
    	  'eventCategory': 'External Affiliate Link',
    	  'eventAction': 'clicked',
    	  'eventLabel': href,
    	  'hitCallback': loadPage
    	});

    	// redirect after one second if recording takes too long
    	setTimeout(loadPage, 1000);

    	// redirect to outbound page
    	function loadPage() {
    	  document.location = href;
    	}
      });	

      // Close anon function.
    }( jQuery ) );
    </script>
        <?php
    }
    add_action( 'wp_footer', 'candc_track_affiliate_clicks_script' );
  3. Add external affiliate product and check real time events!
  4. Done.

 

 

by Leave a Comment

How to create widget shortcode

Put this in functions.php

function widget($atts) {

global $wp_widget_factory;

extract(shortcode_atts(array(
    'widget_name' => FALSE
), $atts));

$widget_name = wp_specialchars($widget_name);

if (!is_a($wp_widget_factory->widgets[$widget_name], 'WP_Widget')):
    $wp_class = 'WP_Widget_'.ucwords(strtolower($class));

    if (!is_a($wp_widget_factory->widgets[$wp_class], 'WP_Widget')):
        return '<p>'.sprintf(__("%s: Widget class not found. Make sure this widget exists and the class name is correct"),'<strong>'.$class.'</strong>').'</p>';
    else:
        $class = $wp_class;
    endif;
endif;

ob_start();
the_widget($widget_name, $instance, array('widget_id'=>'arbitrary-instance-'.$id,
    'before_widget' => '',
    'after_widget' => '',
    'before_title' => '',
    'after_title' => ''
));
$output = ob_get_contents();
ob_end_clean();
return $output; 
}
add_shortcode('widget','widget');

Use shortcode as

[widget widget_name="Your_Custom_Widget"]

by Leave a Comment

Easy way to Get Your Windows Product Key | Windows 7, 8, or 10’s product key.

Create a text file and open it

Paste the following script in the text file.

Option Explicit

Dim objshell,path,DigitalID, Result
Set objshell = CreateObject("WScript.Shell")
'Set registry key path
Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
'Registry key value
DigitalID = objshell.RegRead(Path & "DigitalProductId")
Dim ProductName,ProductID,ProductKey,ProductData
'Get ProductName, ProductID, ProductKey
ProductName = "Product Name: " & objshell.RegRead(Path & "ProductName")
ProductID = "Product ID: " & objshell.RegRead(Path & "ProductID")
ProductKey = "Installed Key: " & ConvertToKey(DigitalID)
ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey
'Show messbox if save to a file
If vbYes = MsgBox(ProductData & vblf & vblf & "Save to a file?", vbYesNo + vbQuestion, "BackUp Windows Key Information") then
Save ProductData
End If

'Convert binary to chars
Function ConvertToKey(Key)
Const KeyOffset = 52
Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert
'Check if OS is Windows 8
isWin8 = (Key(66) \ 6) And 1
Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4)
i = 24
Maps = "BCDFGHJKMPQRTVWXY2346789"
Do
Current= 0
j = 14
Do
Current = Current* 256
Current = Key(j + KeyOffset) + Current
Key(j + KeyOffset) = (Current \ 24)
Current=Current Mod 24
j = j -1
Loop While j >= 0
i = i -1
KeyOutput = Mid(Maps,Current+ 1, 1) & KeyOutput
Last = Current
Loop While i >= 0

If (isWin8 = 1) Then
keypart1 = Mid(KeyOutput, 2, Last)
insert = "N"
KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
If Last = 0 Then KeyOutput = insert & KeyOutput
End If

ConvertToKey = Mid(KeyOutput, 1, 5) & "-" & Mid(KeyOutput, 6, 5) & "-" & Mid(KeyOutput, 11, 5) & "-" & Mid(KeyOutput, 16, 5) & "-" & Mid(KeyOutput, 21, 5)

End Function
'Save data to a file
Function Save(Data)
Dim fso, fName, txt,objshell,UserName
Set objshell = CreateObject("wscript.shell")
'Get current user name
UserName = objshell.ExpandEnvironmentStrings("%UserName%")
'Create a text file on desktop
fName = "C:\Users\" & UserName & "\Desktop\WindowsKeyInfo.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.CreateTextFile(fName)
txt.Writeline Data
txt.Close
End Function

Save the file as product-key.vbs

Close it and open the file to check product key.